
La boite 

aux idees : 



fnFllllfjr-, 




Mastermi 



initiation 

ll* liubULrMiii *AAlLI±L- 



et basic 



cnphlsme 
en mode texte 



L*1UL *1 '1 t-m ?]L*r 



avee votre Apple ! 



3Mol - 2 Jullta 
■ U - r I ' : 33 F 




remplin 
micro 



8 



Affti *t PreDOS (mm ot 
got) too* d*i morquM dopo* 
itfAppI* Computer Jut. 



UMCSTRIE L 

Lo numoro : 33 F 

bonnvmant d un an 1 90 F 
(fttmmc'ro*) 



HTIONS JiBENA 

lan'Redocltan I 

3 l» JIBENA 



HACHHTE 



La rVHi MoM - Sonilt* 
MOO CHAtEUSRAULT, 

Telephone t 

49*93-66*66 

PUIUCITt : 

it« (mime numtiVo) 

lJiiion poritolr* e 
»monde en cours. 
U* rrvuvi qui cholt4*oni dotra 
rnrfemtri ou wr<t ou iK'evr. 
— Mt I " ■ 1 pot ft glow* 

fan pJuiwuii motfloj m«t l»f 

-r^C'ipi ccrcotncn* *o 

ttftNn*. r* pot du 

•unufro da Comffliitjon PluJIwO, 
ti pot douonlopjo dn toorili poe 
lair**-* 



C«0 un* pubhiBlion dot t Jr 

JIIHA. ' rut tf» la tow 0>i> 

Ucwl tttGO PAi'i A DU 

inptd d« 360QQQD F — Impnmo 
pur OTtPttSS PAflS Moot 

tffllo OOOAi -i-M Option 

o c'-G' 1 3 C Piuniu .,- porta** 
dot Fubl*eoii*n* •» Aojonco* o* 
Pruut : on court — Dtfoctour do 
It PutfVrOffion Gvf>£lomo<it 
COG* - Diffuiiori NMPP 



Plus loin avec votre Apple 



- SO ^ P° ra " ~~ ce 5onf ,es stolistlqun qui le prelendent — que des fas 
- -sF " d'ordinaleurs lamiliou* lont uno tin peu glorleuse dons les placards, 
■ ; ou its voislnent avecd'aulres gadgets plus oumolnscouleu*. 

Cela ne me surprend pas oolre mesure : comment employer utile* 
menl ces petites "merveilles" auond on a son content de jeux du 
style "envohisseurs'V. el quond les possibititds de programmotion sont limi- 
foes par une rotoire insuffisance de la memoire, ou encore par la lenteur de lo 
lecture Venture sur cassette (souvent oleatcre par-dessus le marche) ? 

Votre Apple — dont les premieres versions seroieni ossurfrnent considdrees 
comme des micros familiaux — figure heureusement dons une autre catego- 
ric, celle de I' hfcrmatique Persome/'e. Ce qui ne Vempeche pas d'avaler, si 
vous le lui demandez. les logicielsde jeux. Qui peut le plus peutle moins* 

Si son vieux 6502 foil aujourd'hui figure d'ancetre, II reste — y compris dons so 
nouvelle version de 65C02 — lun des microprocesseurs les plus iociles 6 pro- 
grammer. Les differences de rapldile que Ton note d'un Basic 6 un autre, se 
rivelent beoucoup plus diffrciles 6 ^valuer (mime si elles emtent) quond elles 
mettent en jeu des routines en longage machine* 

On occomplit. notamment en motiere daffichoge, de remarquables perior* 
mances si I'on choisit de s'adresser direclement ou mlcroprocesseur, dons le 
longoge qu'il connolt le rnieux. 

Ce n est peuf-etre pas une methode Iris conviviale, mais c'ost rndiscutable- 
monl efficoco*.* pour lo gronde satisfaction du programmeur. 

Je n'en suis que plus A Toise pour repondre par un oui sans aucune restriction 6 
la question que nous posent des centaines de lectrices et de Ledeurs : Tout-il 
encore opprendre d programmer en ossembleur alors que les tStes pensontes 
de chei Apple nous annoncent des machines copables de nous obeir ou doigt. 
&r«il..el6lo parole 

Oui le jeu — cor e'est bien d un jeu quit s'agit — en vaut lo chondelle. Ne tois- 
sons pos Tavenir de l informolique indivlduelle oux mains d une poignee d'ini- 
ties. Nous les aimons bien, et nous opprecions comme il convient les excel* 
lents loglciels quils nous mijotent, mois de grace, qu k ils permettent 6 nos 
modestes cerveoux de frequenter, au moins pour s'omuser. les sentiers non 
banalisds dans lesquels lis dvoluent — souvent parte quils disposent de docu* 
mentations plus completes que tes notres — en terrains connus. 

Oui plus loin ovec voire Apple, pour leplaisir ! GUY-HACHETTE. 
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LA_BOITE 

aux idees 



• Petite base de donnees 

• Bloc-notes ou pense-bete 
Vous n'aurez que I'embarras du choix 



POURQUOI vous priver plus longtemps du pioisir de m^moriser — en vrac — 
les plus farfelues de vos elucubrations ? LA BOiTE AUX IDEES est 16 pour 
vous servir, et d'une maniere on ne peut plus simple, ovec : 




— BOITE-BAS, programme en Basic 



— BOITE, fichier binaire de donnees. 



BOilf-BAS lonctionne sur lout Apple lie ou 
Ik Equips dune cart© 60 colon- 
nes. Une adaptation sur 40 colonnes est possi- 
ble, mais ToHichoqe sera rnoins bon. La version 
ci-opres esi desltnee aux Apple Me normoux* 
Pour Apple He ou Me Aquipes du 65C02, on 
modiflera seulernent ta ligne 295. 

Pourquoi avoir preferd le fichier BIN ou lichier 
IXI ? Dune part, en roison de la rapldit* de 
ton ecriture sur disquette ot de son charge 
ment. d'autre part parre que le progromme 
I'utilise sans fair© appel 6 uno vorioblo, 

UMtlE la longueur du fichier est limine d la 
taille-memoire de votre Apple. Ici r 
LOMEM a ete Hx4 6 26000, ce qui autorise 
T*criture de 255 donntos* Chaqu© enregistre- 
menl exigeant 80 caract&res, )0O donnees sup- 
plemental res vous obligeront 6 donner 6 
tOMEM lo valour 34000. Voillez d ne pas d£pas- 
ser la laille de la mimolre dfsponible„. et 
n'aubliez pas de rGserver quolques milliers 
d'ocfets pour le lonctionnement du progromme 
(peu gourmand d'oitleurs). 



PREMIERE UTILISATION RUN BOiTE BAS T - 

puis option 1 du 
menu. Pour qu'une ligne de donnees (pas plus de 
78 corocl&res) soit valid*©, 11 est indispensable de 
r*pondre par (I) D'ACCORD,., sinon e'est 6 
refoire. 

Consulted le tableau de la page 4 ovont touie uti- 
lisation. II comporte des indications qui ne ligu- 
rent (volontairement) pas dans le progromme. 



CREATION DU FICHIER 

Lo creation du fichier BO i T i ost automatfquo. 
Ne pas verroulller ce fichior car il est entice- 
ment rdecrtl lors de chaque mist* 6 jour 

Pour la copier sur une autre disquette. taper 
successivement 

• RUN BOiTE-SAS ...pui* chongor d* disquelle 
■ 1 (opIloAsatiiedumenul 

• ffETURN {*mm*diolon>«fii oprfct It numAto de lo denote) 

• 4 {ven menu g6n*fa ei le Uchlf BOllE est 6trif 
tur votre seconds ditquette tpr^oloblemoni initial*- 
»ee H btensur). 
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UTILISATION DE BOITE.BAS 



SAISIEDES PON N EES 

Aprfes ovoir choisi I'optlon 1 (menu gen^rol), lopez 
normalement voire phrase (sigrtes de poncluation 

autorisds). A voui de savoir si le* minuscules seront 
ou non utilisees, de mftme que I'accent circonfiexe. 
Lo longueur de choquo donn6e etf limitee b 78 
caroctfrfes. Plusieurs commodity vous sont offertM 
(en Bask) : 

CTRL-D : Curseurauddbutde la ligne 
CTRL-F : Curseur 6 lo Hn de la ligne 
CTRL-t : ElfocementdeloUgne 

CTRL-S : Recuperation d'una ligne etfocie par erreur 
DEL : £Hoc«ment du coroct&re pricAdont le curseur 
Pour insurer, se contenler de reventr en arriere. 
puis toper le caroctere b fnsirer. It prendre place 
derrifere la le"re recouvrant te curseur, 
RETURN : Pour terminer to saisie d'une ligne.., (Pour 
lermlner la saisie, BETURN sur une tigne vide). 

FltCHE OROITE el FlfcCHE GAUCHE : 
Autorisent Its d6plocemenli vers lo droits et vers lo goucfie 

LECTURE PES PONN^ES 

[b partir du Menu general} 

CTRL-l comme Liste vous permet dacceder 



ou fichier de donnties, ligne par llgne.,. b partir 
du numero de votre choix. Une ligno de com- 
mandes vous guide (possibilite de lire la ligne 
suivante avec RETURN,,, ou de corriger apres 
un CTRL-C). 

RECHERCHE 

Celt ividemment le point tort du progromme. 
Vous pourrez rechercher un mot, un groupe de 
moti„. voire una simple leltre, mals pos la 
ponctuation (le mot b chercher est en eltet salsi 
par un INPUT normals lot progrommours peu* 
vent s en donner a caour jote et modifier cette 
partiedeBOITE BAS I). 

Si vous cherchez "qui", toutes les phroses com- 
portont ces tro*s lettres vont instantan£ment 
s'aHicher, y compris quond "qui" sero inclus 
dans ocqultter ou £qullibre. 

Par centre, si vous chercher "qui " (qui suivi 
d'un espoce). vous n'obtiendrez que les phrases 
comportant "qui *\ suivl d'un espace. Les possi* 
bllites son! nombreuses. 

(Lo disquette de TrempHn Micro comporte un 
fichier de proverbes qui en donne une bonne idde)- 

Et moinlenont r d vous do jouer i 

a*ment Renord 



BOfTE-BAS 



106 LOMEM: HWl REM POUP 255 DONNE ES ENVIRON 
185 U • "i» • ":R ■ 8:H = 0: REM VARIABLES LES PLUS 
UTILISEES 

110 TEXT : NORMAL :D» = CHR» (4): PRINT WPR£3": PRINT 
115 BA = 5588: REM ADRESSE DO PICHIER "BOITE' 
120 GOSUB 680: GOSUB 465 

125 INVERSE l» « -1 VTAB IiPMW 

T»: PRINT " LA BOITE AUX I DEES "l PRINT T»: NORMAL 
138 T» - ! EOR I =■ 1 TO 28iT» ■ T» * ' 1 > NEXT I GO 

135 P0KE 4 !483.48 : VTAB V: INVERSE I PRINT Vj: NORMAL I R 
ETUPN 

m V • t I GOSUB 135: PRINT ■ SAISIE D'UNE... IDEE (GENI 
ALE)* 

145 V - 2: GOSUB 135: PRINT - RECHERCHE D'UNE IDEE NON H 
01 NS GENI ALE' 

158 JOCT^ flosUB 13Ss ppINT ( ^ERMINE POUR AUJOURD'HUI - 

> •(! CALL - 198: GET R»: PRINT 
168 R * VAL CR9) 

165 PPINT T»t POKE 34, Si VTAB 22s PRINT T*: POKE 3S.21 



Ligne 115 : Si vous modi- 
fiei les cownentolres en 
les ollongeant. voire pro- 
gromme sera nop long et 

tero *6cra$4" par le fichier 

de donn£es (instolle 6 par- 

HrdeSMQ). 

Aloes, soyei prudent « 



POKE U03. voleur remplace 
HTAB (qui. ou-desius de 40. 
n'est pot supporte por tou* 
les Apple), 

GUV*H ACH fiTTt 



SAISIE 

Elle esl classique, avec 
GET t en Basic* ll seroit 
possible de ('optimlser en 
Iq remplogcmt par une rou* 
tirw en longage machine 
(une boTfc do disquettes 
vlergn a I'outeur do lo 
mtlll*ure I). 

• Le loit d avoir declare 
les variables LS. R$, R 
er H ou debut du pro* 
gramme en am el lore 
senslblement la ra* 

• 5ur les onciens Apple 
//*, la louche ESCAPE 
n* doit pa* itre utlH- 
io<*.. cor elle permet 
do 10 promener 6 Uq 
vers I'fcran (avec les 
(Itches, bien sGr) t Pro* 
blime inexistant sur 
les fleet tfeavec 65C02 

■ Avec ('Apple lie et 
I' Apple Uc + 65C32. to 
l»gne 295 sera rempla- 
tie par I 

395 1FR = 21 THENH = 
H + 1 : GOTO 225 




MEMORISATION 

A pel if du moment ou 
voirt avai accede a la rou- 
tine de satiie, le fichier 
801IE iera automatlque- 
merit teeeril lorsque vow 
qultterez cetle meme rou- 
lint de loiiie pour loptlon 
MENU GENERAL. 



17* 

175 
188 
165 
198 
195 



IP R* = CHR* (12) THEN 589 
HOME 

ON R GOTO 218.528.788: GOTO 158 



PEN »mi 
REM • 
REM 



SAISIE DU TEXTS 



285 

218 
215 
228 

225 
238 

23S 
248 
245 
258 
255 
268 
265 
278 
275 
268 
285 

298 
295 

388 

385 
318 

315 

328 
325 
338 
335 
340 



345 



368 
365 
378 
375 
388 
385 
398 



HOME :N = N ♦ ll INVERSE : PRINT N: NORMAL 
L* = • ■ 

L - LEN <L*) - l:H - L + 1! IF L > 78 THEN CALL - 19 
8:L» « LEFT* CL».l - 1): GOTO 228 
IF H - I > L THEN B - L - 1 

PRINT I VTAB 9: HTAB U PRINT L*:: CALL - 958: POKE 

1483, H: GET R» 

R " ASC <R»> 

IF R > 19 THEN 275 

IF R » 8 AND H > I THEN H « H - 1 1 GOTO 230 

IF R * 4 THEN H = 1 : GOTO 238 

IF R = 6 THEN 228 

IF R = 5 THEN S* = L*i GOTO 215 

IF R = 19 THEN L* - S*:S* - "l GOTO 228 

IF R * 13 THEN 335 

IF H - 1 = L THEN 315 

IP R < > 127 THEN 295 

IF H > 1 THEN L* - LEFT* (L*.H - 1) + RIGHT* (L*,L ♦ 

1 - H)iH - H - ML - UN <L*> - 1 
GOTO 238 

IF R - ASC ( MID* (L*.H ♦ 1,1)) THEN H = H + 1: GOTO 
238 

IF R < 32 OR R > 126 THEN 238 
IF I > 77 THEN 228 

L* • LEFT* (L*,H) * R* ♦ RIGHT* <L*,L * 1 - H):H = H 

■ 1:L ■ LEN CL*) - 1: GOTO 238 
IF R - 127 AND L > 8 THEN L* - LEFT* (L*.L): GOTO 22 
8 

IF R < 32 OR R > 126 THEN 230 
IF t > 78 THEN R* - ■ ■ 
L* ■ L* ♦ R»: GOTO 228 
PRINT : PRINT : PRINT L* 

VTAB 17; PRINT ■<]> D'ACCORD <2> CORRECTION <3> ANNU 
LATION <4> MENU GENERAL ";i CALL - 198: GET R»: PRIN 
T 

R ■ VAL <R»): IP R < 1 OR R > 4 THEN 348 

ON R GOTO 395. 238, 215, 355 

IF NM THEN N = NM:NM » 8: RETURN 

N - N - 1 

GOSUB 425i GOTO 158 



PEM 
REM 
REM 



ECPITUPE DU FICHIEP 
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BOITE-BAS 



395 IF L» ■ " ■ THEN N 
488 AD = <BA - 88) + B( 



(suite) 



t H - ll GOTO 210 

« N:AL ■ AD + L:AF = AD + 79:M = 



485 FOR I = AD TO AL:M = M » li POKE 1,128 + ASC ( HID* 

(L*,H.1>>: NEXT 
410 FOR I = AL *- 1 TO AF: POKE 1.0: NEXT 
415 IF NM THEN N «■ NM:NH = : RETURN 
420 GOTO 210 
425 L • N * 80 

438 PRINT CHRS <4>'BSAVE BOITE.A'BA" ,L'L 
435 RETURN 
440 : 

445 REM MHHimHiiiioM 

450 REM • LECTURE DU PICHIER ■ 
455 REM 



465 ON ERR GOTO 490 

478 PRINT CHR» (4>"BLOAD BOITE' 

475 L ■ PEEK (43616) + PEEK (43617) 

AVEC PRODOS 
488 N - L / 88 
RETURN 

POKE 216.0: GOTO 125 



■ 256: REM 48840-41 



485 
498 

495 
500 
505 
518 
515 
528 
525 
538 
535 

548 

545 
550 

555 
560 
565 
570 
575 
580 

585 
59B 



REM -m 

REM • RECHERCHE • 

REM • ••••t»»*«#M#M»MM"»ll«MM« 

I 

AR = 848: REM STOCK AGE DU MOT CHERCHE 
VTAB 6: INPUT 'VOTRE MOT-CLE EST -> ";M« 
IF M* ■ '• THEN 158 

L = LEN CM»): POKE 252. L: POKE 8.CN - 1) - INT <N 



256) » 256i POKE 9. INT ( (N - 1) 
FOR I = AR TO AR + L - ltM - M + 

< MIDS (H»,M,l))i NEXT 
PRINT : CALL 768: CALL - 198 
CALL - 196: POKE - 16368.01 WAIT 
KE - 16368.8: PRINT : HOME I GOTO 



/ 256) :M » 
1: POKE 1.128 * ASC 



- 16384,128.127: PO 
525 



REM ---.-............«......>••••• 

REM • LECTURE ET CORRECTION ■ 
REM 

HOME : CALL - 198: PRINT I VTAB 7: INPUT "NUMERO DE 

DEPART DEMANDE -> ";R»:RE = VAL (M> 

PRINT : IF RE < 1 OR RE > N THEN 645 

VTAB 7: CALL - 868: INVERSE : PRINT RE: NORMAL I VTA 

B 9j CALL - 668 



LONGUEUR 
PU FICHIER 

Calcul dlementaire. puis- 
que choque enregislro* 
mem est limile a BQ coroc- 
Mm. On o l = 80 * N 

• Notei {ligne 4101 que 
les lignes sent comply 
tees par oulant de 
quit y a d'octoH 
libres. .-iusq u'6 80 

* Lo premier caracl&re 
de cheque donnee eat 

un espoce Ice n'Atait 
pos indispensable}. 



ONERR GOTO 

Lors do to premifere crea- 
tion de lichier, il 6vi1ci do 
sc planter. 



ProPQS 

Sous PfoDOS no pos 
oublier de moditiei lo 
ligne 475, comme indique 
par lo REMorque.., 



RECHERCHfc 

On poque en 357 (SFC) lo 
longueur du mot cherchd 
(de I b PF^i si vous vou- 
lei et en 8-9 lo nombre 
octuel de lignes de donnfos 
(qui peut done ddpossor 
$FF... ou 255. puisque deux 
octets lui sont reserves). 
Quant qui coracteres du 
mot, lis sont egolemenl 
poquet b parti r de 848 h 
e'est-d-dire a lo suile de lo 
routine en longage 
machine,-, qui sail les lire 6 
cetie odresseC.Q.FiD, 



GUY-HACHETTE 



CORRECTION 

Let topleurj de disqueMes 
ne souronl jomais com- 
ment retire leur Ikhief.*. 
ft le corriger , sauf &Ms onl 
Ic courage de lire le pro- 
gramme pour comprendre 
commeni II fonctionne, 
Ce*t 6l6men1olro. non ? 



595 




Et malntenont. pour en 
tovoir plus I6«deituv Ifsoi 
tout de meme ('explication 

de cetle loule pelile rou- 
tine de recherche. 
(tl*dtiious et ou verso) 



A SAVOIR 



605 
618 



615 

626 
625 
630 

635 
643 
645 
658 
655 
660 
665 
67B 
675 
680 
685 



690 



AD = CBA - 8«> * <RC • 88): POKE 6. AD - J NT <AD / 25 

6) » 256: POKE 7. INT (AD / 256) 

POKE 8,0: POKE 9.0 

CALL 833: REM SORTIE DE LA PHRASE 

VTAB 18: PRINT "SUITE = < RETURN > — CORRECTION * <CT 
RL-C> -- AUTRE OPTION = <UNE AUTRE TOUCHE> 1 : I CALL 
- 198: GET R« 

PRINT :P » ASC (P»>: IF P - 13 THEN RE = RE * U GOT 
585 

IF R » 3 THEN NM = N:N » RE: GOTO 630 
GOTC 580 

L* = " ' : FOR I = AD * 79 TO AD STEP - liR = PEEK U> 

: IF R < > THEN Ls = CHR* <R - 128) * W 

NEXT : GOSUB 220 

CO = 1 x GOTO 580 

IF CO - 1 THEN CO = 0: GOSUB 425 

GOTO 150 

* 

REM *- »•••••• v.* * 

REM H ROUTINE DE RECHERCHE • 
REM "M*"**********"""*"**" 

FOR I = 769 TO 647: READ R: POKE t.Rl NEXT : RETURN 

DATA 169,044.133,6, 169,21. 133,7. 196.8, 165,8,281, 255. 

286,9, 198,9. 165,9.201 ,255,208 J .96,24, 165,6. 105,88 . I 

33,6.144.2,236.7,168.255.162.255,232,228,252 

DATA 240,28,200.177.6.248.214,221,88.3.248,241 ,134.2 

53,152,56,229,253.168.76.38,3,165.6.164,7.32,58.219, 

169.13.32,237.253.76.8.3 



TEXT : HOME 




SD83A (STROUT) aHiche la cholne dont vous 
lui indiquez I'adresse (Y et A), mate atten- 
tion ! elle doil obligatoirement se terminer 
par un ou par des guillemets ("). La partie 
basse de I'adresse est mise dans I'accumula* 
teur A et la partie haute dans le regislre Y. 
Ceio est obtenu par LDA et LDY (LD comme 
LOAD). 

$FDED (COUT) permet d'aHicher te caractere 
qui est dans I'accumulateur A* 



Si vous fttM neophyte, utilises d« trues 
pour vous souvenir de la signification 
des mitfmonlquc* 4 LDA. ST A, clC- \ 

PAR EKEWPIJi : 

• LDA.LDX. LDY comme LoaDA ( X,Y 

• STA t STX. STY romme STocke A, X, Y 

• CMP. CPX.CPY comme Comparer A, X, Y 

• ADC comme ADditlonner 

• SBC comme Souslraire 

• DEC comme UECrtmenter 

• DEX, DEY comme DEcrimenterX.Y 

• INC comme IKGrtmenter 

• INXetfflYcommelNcrtrnenterX.Y 
i JSR Je Saule et Reviens 

• JMP„ Je Me Penis . et Je ne revieftdraJ 
p...- ! ret :u MllfC ' SESTOB 
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LA BOiTE AUX I DEES 



Voici. pour terminer, I explication de 
la routine de RECHERCHE (iignes 685 et 
690), qui permef de frouver une lettre 
ou un groupe de lettres,.. et d'afficher 
la ou les Iignes concern£es. 



(suite et fin) 

DC UX POINTS D 'ENTREE 

• 760 ($300) pour la recherche proprement dlte 

• 833 [$34 1 } pour le sous-progr omme "Routine el 
correction". 

On utilise les dresses S£ 7 B 9 FC R) de la poge 0. 



0300- 


A*** 






LDA 


£37C 




85 


t'- 6 




51 A 


SB6 


0304- 


fL J— 1 

A9 


15 




LDA 


t»15 


^1 r*~ 

0306- 


85 


0? 




STA 


307 


030B- 


C6 


1 H 




r> ****** 

DEC 


d> fl 

*0a 


030 A- 


m r— 

A5 


f 1 £~k 

06 




LDA 


308 


JSC- 


C9 


FF 




CMP 


r a C 


030E- 


D0 


09 




BNE 


3031V 


031 0- 


Cb 


09 






3W V 


0312- 


A5 


09 




LDA 


30 Q 


031 4- 


C9 


rr 




LHP 




031 6- 


D0 


01 




BNb 


3031 9 


0318- 








KTS 




031 9- 


19 






CLC 




031 A- 


A5 


06 




LDA 


306 


031C- 


69 


50 




ADC 


r r** a 
f 350 


03 IE- 


85 


06 




STA 


«l A j*" 

306 


0320- 


^0 


02 




BCC 


30 J24 


8322- 


E6 


07 




INC 


307 


0324- 


A0 


FF 




LDY 


f 3FF 


V -J CmU 


rib 


FF 




r nx 


£*FF 


0328- 


E8 






I NX 




0329- 


E4 


FC 




CPX 




032B- 


F0 


1 4 




BEO 

V 4^ 


30341 


032D- 


C8 






T NY 




032E- 


BI 


06 




LDA 


C306) - Y 




r- - ■ 
c w 


LID 








0332- 


DD 


50 


03 


CMP 


•0350.X 


0335- 


F0 


Fl 




BEO 


S0328 


0337- 


86 


FD 




STX 


»FD 


0339- 


98 






TYA 




033A- 


38 






SEC 




033B- 


E5 


FD 




SBC 


»FD 


033D- 


A8 






TAY 




033E- 


4C 


26 


03 


JMP 


S0326 


0341- 


A5 


06 




LDA 


»06 


0343- 


A4 


07 




LDY 


307 


0345- 


20 


3A 


DB 


JSR 


SDB3A 


0346- 


A9 


0D 




LDA 


f»0D 


034A- 


20 


ED 


FD 


JSR 


»FDED 


034D- 


4C 


OO 


63 


JMP 


•0308 



$152C = 5500*80 

Lo pur tie bosse dc 
lo m^molre $6 f 
m^moire $7 



J 



radre*se est ttocV^e don* 
la portfe haule dant lo 



En on a le nombre de Iignes de donnees 
mains un ipoque depois le Basic). On le 
decrement**. Quond les deux voleurs posscnt 
ou-dessous de {Q — 1 = $FF), on a termini 
lo lecture des n Iignes 



RTS renvoi* ou Bask 

Annulotion de lo retenue pour ojouler 
$50 (80) 6 Tadresse contenue dans 
56*7. Quond (I n'y a pas de retenue. 
BCC 6vite d'lncrimenter lo mrfmoko $7 

Registre Y a $FF 
RegUtre X 6 SFF 

X * X + I {6 noter quo SFF +1=0) 

X est-il ogol 6 SFC. (longueur du mol) ? 

SI oul, on posse 6 rallkhoge. M 

Non ; olors Y = Y + 1 

On (It Tociet contenu 6 l F adresse S67 + Y 

SI c'esf un 0, la llgne a ete lue_ 6 une outre \ 

Comparalson avec le corod^re cherchd 

S'll est Idenrlque. voyons le suivant dventuel 

Valeur de X stockee dons FD 

Y passe dans A 

Retenue 6 1 pour sousfrotre SFD (outrement 
dM X) de A (autrement dit y ' 
A repasse dans Y 

to report pour un tour I 



Lisei \ application page pr^cMente 



Retour 6 lo vource I 



GUY-MACH6TTE 



UNCAGE MACHINE 



INITIATION 




question; 



Pourquoi $843 - $851 ? 
(ci-dessous) 

On lira successivemenl la 
longueur puis I'odrosso do 
chaque rnoi dans : 

S843- 44 -45 
S846 - 47 -48 
S849-4A-4B 
SB4C-4D-4E 
$84F- 50-51 



VARI ABLES 

dimensionnees 



10 


HOME 




20 


FOR I 


- 1 TO 


30 


INPUT 


A»< I> 


40 


NEXT I 




SO 


PRINT 


A«C n 



9 RUN 

?T0T0 

7NATHALIE 

?LILI 

7RENE 

?ZOE 

TOTO 



A$(x} eil une variable 
dimenstonnee (tableau) 



Dons la memolre do ('Apple, le debut de 
la zone teservee aux variables dimen- 
sionnees est points par let octets 107 et 
108 ($6B et $6C), mais les octets 131 et 
132 fournissent I* meme renseigno- 
ment... sur lo derniere variable ufilisee 
(icl.il s'aglt de A$(l». 



9CALL- 1 SI 

•63. S4 



0083- 43 08 = 0843 a I'endroit 

#843.851 




0843- 04 CFC 95) 08 F4 

0848- 95 04 F0 95 04 EC 9S 03 

0850- tE9~9$> 



Notez que les mots 
sont stockes les uns 
a la suite des autres, 
a partirdu sommet 
de la me>noire, en ASCII 



«<*5E9.P5FF 



E? 95 = *WE9 

95FF = WFC*B4 (ionggmr^ 



par NESTOR 



95E9- 5A 4F 45 52 45 4E 45 
95F0- 4C 49 AC 49 4E 41 54 48 
95F8- 41 4C 49 45 54 4F 54 4F 

TOTO 



IREMPUN MICRO 



DOS 3.1 



ProDOS 



Michel DEVAUX 



MASTERMIND 

Version pour Apple // 



CETTE adaptation du fomeux Mastermind ne d6cevra certainement pos les (nombreux) 
amateurs de jeux de logique. Etle a le merile d'utiliser, sans aucune modification, lo 
FONTE.LM porue dans le num^ro 5 de Tremplin Micro (sous la signature du meme auteur}, 



PROGRAMME BASIC 



188 LOMEM: 18188: TEXT l NORMAL l PR 

INT CHR» (21>: HOME 
105 PRINT : PRINT CHR» <4>'BL0AD FON 
TE.LM" 

110 PRINT : PRINT CHR» (4)"BLOAD MIN 
DFORM" 

115 POKE 232.8: POKE 233.3: SCALE= 1 

: ROT= 1 
128 GOSUB 648 
125 I 
130 
135 
148 
145 
158 
155 
168 
165 
178 
175 
180 



REM »■«*<•**«<■« ECRAN 



AD ■ 16384 

HGR : POKE - 16382.0 

HCOLOR= 7 

FOR I = TO 7 STEP 2 
HPLOT 8. I TO 118.1 
HPLOT 162,1 TO 279.1 
NEXT 

HPLOT 8.191 TO 279.191 
HOME 



185 HTAB 19: PRINT ' 
■ 1 

1 TO 24 



MIND' 



190 L = 
195 FOR 
23? 



1:C 
I » 



L - L ♦ 2: IP L > 17 THEN L = 3: 
C = C + 3 
205 C» = CHR» < I 
218 VTAB Li HTAB 

215 X = C * 7:Y « (L - 1) • 8 - IiP 
■ I 



+ 64) 

Ci PRINT C» 
> (L - I) # ( 



220 
225 
238 
235 
240 
245 

250 
255 
260 
265 
278 
275 

288 
285 
290 

295 
308 
305 
318 
315 
320 

325 
330 

335 
340 
345 



GOSUB 560 

NEXT 

CALL AD 

FOR I = 1 TO 2 

J = (I - 1) * 24 » 141 

HPLOT 3. J TO 59, J TO 59. J 4 15 T 

3. J * 15 TO 3. J 

NEXT 

HPLOT 65,8 TO 65,191 
FOR I = 1 TO 3 
FOR J - 1 TO 6 
FOR K = 1 TO 5 

HPLOT (I - 1) * 78 ♦ 77 + <K - 1 
) « 12. J • 24 - 2 
NEXT K.J.I 



PEM ■•■»>••*■••» JEtl •■•ti 



FOR I = 1 TO 5 

NCI) = INT t RND (1) * 24 + 1> 
NEXT 

L = 1:C ■ l!:CO * 

L = L + 3: IF L > 19 THEN L = 4: 

C - C ♦ 18 

B ■ 0:M = fliCO = CO + 1 
FOR I = 1 TO 5.-AACI) = 8:NNU> - 
0: NEXT 
FOR 1 = 1 TO 5 
VTAB 1 : HTAB 1 : GET A* 
AH) - ASC <A») - 64t IF AC I ) < 
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GUY-HACHETTE 



1 OR AC 1 > > 24 THEN PRINT CHPS < 

7): GOTO 348 
358X=C»7*CI-l)*12-4 
355 Y = CI - 2) * 8 - 2 
368 F = AC I) 
365 GOSUB 568 

378 IF AC1) - NCI) THEM B « B * I :AA 

(I) - 1:NNCI) • 1 
375 NEXT 
388 3 = 9 

385 J - J + 1: IF J = 6 THEN GOTO 41 
5 

39* FOR I = 1 TO 5 

395 IF AACJ) = 1 OR NNU> » 1 THEN G 
OTO 485 

400 IF ACJ) = NCI) THEN M ■ M ♦ 1:AA 

<J> = 1:NNCI) = 1 
48S NEXT 
418 GOTO 385 
415 VTAB Li HTAB C 
428 IF M = 8 AND B = 9 THEN PRINT ■ 

Rlen": GOTO 438 
425 PRINT "B." :Bi" M." ;M 
438 CALL AD 

435 IF CO < 18 AND B < > 5 THEN GOTO 
328 

448 VTAB 22: HTAB 11 
445 IF B < > 5 THEN GOTO 470 
458 PRINT "Voua avez GAGNE en ":CO;" 
coup" : 

455 IF CO > 1 THEN PRINT 's' 
468 IF CO = 1 THEN PRINT 
465 GOTO 475 

478 PRINT "Voua avez perdu l« 
475 CALL AD 



480 IF B = 5 THEN GOTO 515 

485 FOR I ■ 1 TO 5 

498 X - 196 + CI - 1) » 12 

495 Y - 167 

580 F = NCI) 

585 GOSUB 568 

518 NEXT 

515 VTAB 19: HTAB 2: PRINT "Quitter" 

528 VTAB 22: HTAB 2: PRINT -ReJouer" 

525 CALL 16384 

530 VTAB 1 : HTAB 1 : GET A» 

535 IF A* < > "0" AND A« < > "R" THE 

N GOTO 538 
540 IF A» = "R" THEN RUN 138 
545 TEXT : HOME t END 
558 END 
555 : 

568 REM •••• FORMES imiummm 

565 i 

578 IF F » 16 THEN DRAW 12 AT X + 4. 

Y: GOTO 630 
575 FO = INT < CP - 1 ) / 8) + 1 
580 DRAW FO AT X.Y 
585 IF F = 2 OR F = 18 OR F * 18 OR 
F=40RF=12 0RP=28 0RF« 
24 OR F = 16 THEN DRAW 4 AT X 4 
4.Y * 1 

598 IF F = 3 OR F = 11 OR F = 19 OR 
F=40RF=12 0RF=28 0RF= 

24 THEN DRAW 5 AT X + l.Y + 4 
595 IF F = 5 OR F = 7 THEN DRAW 6 AT 

X + l.Y + 1 
680 IF F = 6 OR F = 7 THEN DRAW 9 AT 

X + 7.Y + 1 



PRINCIPE 
DU)EU 



Lordinoteur choisit une seleo 
lion do 5 formes graphiques (la 
meme peut etre s6lectionn£e 
plusieurs fois)< 

II s'agit de decouvrir cette se- 
lection, par deductions succes- 
sive, en un minimum de coups. 



MI NO 



fO IO oo 
BCD J<t* R<I> 

cb se 

om L<$ TQ 

E(3 U<$ 

F0 H0 U0 

GE1 U« W<$ 

P» x» 

Qui tter 



Rejouer 



<>ocD<j>a> 

Rlen 

BD^effl 
ppomffl 



B 



M . 1 



OOQOO 
Rien 

ooDeo 
B.2 n.e 



\aeo 

n e 



Uous avez perdu 



01 







6 4 M ft 
B . 4 

♦ BD 



sae«> 



TltEMPUN MICRO 



1 I 



MASTERMIND 



(suite el fin I 



15 THEN DRAW 7 



.5 THEN DRAW 10 



685 IF F - 13 OR F • 

AT X * 3.Y * 3 
618 IF F = 14 OP F = 

AT X * 5,Y + 3 
615 IF P = 21 OP F * 23 OR F a 24 TH 

EN DRAW 6 AT X ♦ 2.Y + 2 
620 IF F = 22 OR F = 23 OR F = 24 TH 

EN DRAW II AT X * 6.Y ♦ 2 
625 IF F ' 8 THEN FOR J " X TO X * 8 

I HP LOT J.Y TO J.Y » 8: NEXT J 
638 RETURN 
635 : 

640 REM <•*•■«■ PRESENTATION ■ ■ ■»■ » ■ 
645 : 

650 TEXT : HOME 

655 HTAB 13: INVERSE I PRINT ■ HASTE 

R.HIND NORMAL 
660 PRINT i PRINT : PRINT : PRINT " 
L'ordinateur cholslt une select 

ion de' 

665 PRINT "5 formes graph iques parml 

les 24 propo-" 
670 PRINT 'sees .• 

675 PRINT : PRINT " Votre but ? Dec 

ouvrir cette selection' 
683 PRINT "en un minimum Qe coups 
685 PRINT : PRINT " A chaque coup. 

l'ordinateur vous indi-'i 
690 PRINT "quera combien votre propo 

aition comporte'i 
695 PRINT 'de formes BIEN placees et 

HAL placees ." 
700 CALL - 198: VTAB 23: PRINT "APPU 

YBZ SUR UNE TOUCHE POUR COMMENCE 

R' ; : GET AS 
705 RETURN • 



Pour fonctionner, le programme en Basic doil 
etre accompagne, sur sa dtsquette par : 

• FONTE.LM (Tremplin Micro n°5) 

• MINDFORMJci-dessous) 

Adresses : 

Fonte.LM : 16384 (S40OO) 
Mindform | 768 ($300} 




Pour enregisfrer les codes de MINDFORM. 
possez d'abord en mode monileur (CALL — 
151 ... RETURN), puis tapez cheque ligne en 
remplacanl le tirel par deux points (:). 
Loroque vous ourez (ermine, tape? CTRL-e, 
puis BSAVE MINDFORM, AS300 . LSA8 



I 



8300- 


10 


00 


28 


80 


39 


00 


4C 




0308- 


5E 


00 


63 


00 


68 


BB 


70 


00 


0318- 


74 


00 


7A 


00 


82 


00 


86 


00 


0318- 


8C 


88 


80 


00 


00 


00 


08 


00 


0320- 


08 


00 


80 


00 


00 


00 


00 


00 


0328- 


2D 


2D 


2D 


2D 


36 


36 


36 


36 


0330- 


3F 


3F 


3F 


3F 


24 


24 


24 


24 


0338- 


00 


09 


09 


15 


15 


15 


15 


17 


0340- 


17 


17 


17 


1C 


1C 


1C 


1C 


BC 


0348- 


0C 


0C 


0C 


00 


49 


2D 


15 


15 


0350- 


IS 


36 


IE 


IE 


IE 


3F 


1C 


1C 


0358- 


1C 


24 


0C 


BC 


05 


00 


36 


36 


0360- 


36 


06 


00 


2D 


2D 


2D 


05 


00 


0368- 


15 


15 


15 


15 


15 


15 


05 


00 


0370- 


15 


15 


05 


00 


15 


15 


15 


15 


037S- 


05 


00 


17 


1? 


17 


17 


17 


17 


8388- 


07 


00 


17 


17 


87 


80 


17 


17 


0388- 


17 


17 


07 


00 


15 


3F 


17 


2D 


0398- 


2D 


15 


3F 


3P 


3F 


17 


2D 


2D 


0398- 


2D 


2D 


IE 


3P 


3P 


3F 


0E 


2D 


03A0- 


2D 


IE 


3F 


0E 


85 


00 


00 


00 



Lorsque vous ecrivez a Tremplin Micro... 




Si vous oMendez de nous un renseignemenr., 

1 un conseil. jolgnei toujours un timbre-poste 
pour lo r^ponse. 

Si vous nous adressez une disquette, 

conservez ('original de vos programmes el 

noubliez pas de joindre une enveloppe 
affranchie pour son retour. 

Nous n'examinerons votre programme que s'il 
a k\b recopid sur une disquette. 



12 CU Y-H ACHET 1 E 



LAS CAGE MACHINF 



DOS 13 



INITIATION 




ECRAN-DAMIER 



Rien ne vous oblige 6 
reropier la lolalite de ce 
cog r I programme de 
domonjlfation. oncoro 
Que les premieres lignes. 
empiunleei 6 Beagl* 
Bros soient lort origmo- 
let (ovriex-vout pens* 6 
utlliser la fonclion 
PlOr... en mode IEXL,. 
pour transformer voire 
ecran en domier ?) 

Par conlre, ne neglige* 
wrioul pen : 

OAM1ER.0 : atflche de* 
coroc teres 6 1'ecran. II 
qii lent 

DAMIER.l : ecrlt direcle- 
msnl dons la memoire- 
ecron II est ires rapide. 



CES demonstrations sont destinees 6 
vous monfrer les enormes possibility 
du langage machine, utilise pour de courtes 
routines. Vous constaterez notamment, en 
comparanl DAMIER.Q et DAMIER.l (page 
14). qu'il est souvent facile, en troitant le 
probleme d'une outre maniere, d'accelerer 
considerablement la vitesse d'execution. 



DAMIER.BAS 40 COLONNES 



108 TEXT : PRINT CHR» C2l > t HOME I COLOR- 2 
118 VTAB 12: HTAB 5: INVERSE l PRINT 1 DAHIEP EN BASIC < 

BEAGLE BROS) ' : NORMAL 
128 GOSUB 298: HOME 

138 FOR X = 8 TO 39 STEP 2: FOR Y = I TO 47 STEP 2:Z - 2 

- 8 : PLOT X ♦ Z.Y: NEXT Y.Xr POIZ 37.255 
148 GOSUB 290: HOME 

158 PRINT : PRINT l LIST 100: LIST 130: GOSUB 290: HOME 
160 VTAB 12: HTAB 2: INVERSE i PRINT " DAMIER EN LANGAGE 

MACHINE, VERSION 8 ' 
170 NORMAL : GOSUB 290 

180 PRINT : PRINT CHRS (4)"BL0AD DAMIER. 8" 
190 FOR I = 1 TO 3: GOSUB 290: CALL 768: GOSUB 298: HOME 
: NEXT 

208 VTAB 12: HTAB 2: INVERSE | PRINT ■ DAMIER EN LANGAGE 

MACHINE. VERSION 1 " 
210 NORMAL : GOSUB 290 

220 PRINT : PRINT CHP» (4>"BLGAD DAMIER.l" 
238 FOR I ■ 1 TO 3: GOSUB 290: CALL 768: GOSUB 290: HOME 
: NEXT 

248 VTAB 22: PRINT "<1> ENCORE <2> MENU DISQUETTE <3> FI 

N "i: GET R»: PRINT 
258 IF P» = * 1 " THEN RUN 

268 IF R» = "2" THEN PRINT CHRS (4)"RUN MENU" 
278 IF R» < > "3' THEN 240 
280 HOME : END 

298 CALL - 198: POKE - 16368.0: WAIT - 16384.128.127: PO 
KE - 16368.8: RETURN ». 
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DAMIFR.O 



J00- 
0303- 


£0 

A° 


bo 
lo 


FC 


JDK 
LDA 


srLbo 
£«16 


On efface locrarv 

puis on sfochtf $IB (?4) i 


Ions la memoire 56 


0O05- 




■o 






STA 


Jfl A J - *" 

*06 — 1 




0307- 


A 1 * 


ft A 






LDA 


f *A0 


COUT1 (SFOFO) envoi© un o»paco 




£0 




FD 




»r Ur 






J0O" 


AB 


WW 






LUY 


£3fc>0 


Y = 






Hit 


0k 1 

v 1 






r n v 




X = 1 




DJ 1 U 


ISC 

nO 












Lecture de la m^moire >6 (por A) 


CI *3 i o_ 
UJ 1 


no 

L*Tf 


W 1 








K 3*B 1 


On compare re contenu do A a 1 


A*a i a _ 


tva 
L 'u 


A A 






ijl.it 1 


* A Ol A 

3*0 Ol A 


Si ce n F esf pos tgal sout a 531 A 






I 3 










Ycst-rl *gal6$13(19) ? 




JlO" 


1 ■ 


W 1 










Oul : alorson saure 6 $318 


WJln- 


- . ' 1 








T My 

1 HA 




X = X+ 1 




CO t D" 


Av 


oo 
£V 






LUA 




S20 (espoce inverse) mis 


dans A 


B*31 LI' 




At* 
flu 


Fo 






PR6U ;SF94C; envote A + X — 1 espoce(s) 












T MY 
INI 




Y = Y + 1 




0321- 


Cfl 


M 




u 


CPY 




Y est-il 6 SU (2Q) ? 






QA 


to 




cn 




aA OA C 


Si out (C = on rev* on 


r6$30E 


w *3^o— 


rtD 


£i 




-J 


r 

LUn 




Lecture de CH (poittkin h 


xiionlole du tuneur) 










5 
n 


DUA 

irnn 




A stock© *ur lo pile 
















Retenue a 1 poursousfraire 


W -3£D — 


trc 
l ■ > 






w 
< 


qnr 
» — i j — 

Din 




Position HOR. main* 1 








WO 




o 






Et molnt i pour im nombre de Ifgnes 


J - ^ >"*k i^L f"» 

032F- 




05 




a: 
— 


BEQ 


$0336 


Si on e*1 6 ziro. lermin* 1 


0331- 


66 






< 


PLA 




On recupere A tur lo pile 


0332- 


D0 


D6 




BNE 


S830C 


S'il e&l different de □ ligne impoire 


0334- 


F9 


Dl 




a 


BEO 


•0307 


on. au controlre, ligne poire 


0336- 

v ^^^^^^ 


66 






Ul 


PLA 




Ne pas oublior do ddptlor A 


0337- 


A9 


FF 




> 


LDA 


f »FF 






0339- 
033B- 


85 
69 






<. 


STA 
RTS 


•25 
— » ■ — 


Ketour du curseur en haul de locron... el 
rotour au Boaic 






















FC 






Home 


DAM IE R.I 


%J j v V 














r fiy 

LU I 


f *tft 1 


Y = 1 




WOOD** 






FB 


top 
JDK 


«L-Dft 


BASCALC coJcule l odre«o de base 


Jeo- 


AV 








LUA 




Espace inverse don> A 








iLO 






DIM 




Stockogc de A a Todre&se tue dans S28/7? + Y 




PO 








T MV 

I NT 




Y incr^menrddeux lai» (domior 11 


030U- 


Lo 








INi 










LU 






o 




J - ■ ■ 


Est-ll 6$2fl ? 






OA 

y w 


Fa 




n 




*Aoa a 


5 il est ou*des50US f un autre tour 


0J1 




ZD 




v. 

< 


1 HU 




Sinon on incrdmonte CV (VTAB) 




JVC 

AO 


ZD 






r nil 




Puis on en lit lo voleur 




aqi 
UOl O 




ZO 










Que I'on compore6 $23 (ou il y o$16) 


0Ol O- 


C*A 


AO 




AC 






5i A = $1B(24) ( c*e5tf)ni 




VOX tt 




OR 
£u 




5 
< 


PPV 




YtiMI Agala$28(4fJ) ? 




031C- 


cv 


DC 

Eb 




BEQ 


aA OAO 

30303 


5i oui, un ospace pour 


commencer la ligne 


031 E- 


A0 


00 







LDY 


£>00 


Non : olofs Y = 1 (pas d'espoce) 


0320- 


F« 


E3 






BEO 


S0305 


GOTO $305 




0322- 


A9 


FF 




> 


LDA 


£*FF 






0324- 


65 


25 






STA 


*25 


Voir 0AM! ER Q 




0326- 








3) 


RTS 









GUY -HACHETTC 



Passons maintenant sur 80 colonnes 



VERSION MIXTE 



St vous etes couragoux (bien sOr que vous I'ftfes !), reco- 
piez les 47 octets de cette version mixte. Elle o le memo 
(?) de dormer le mfime rdsultaf sur 40 ou BO colonnes. 



300: 20 58 FC AO 01 20 CI FB A9 20 91 28 8D 55 CO 
C8 8D 54 CO CO 28 90 F0 E6 25 A5 25 C5 23 F0 
F0 DD AO 00 F0 DB A9 FF 85 25 60 



91 



28 C8 
CO 28 



Pour terminer : BSAVE DAMIER.BOcp. AS300. U2F 

Utilisation CALL 768 {aprds un PR£3... si vous d^sirez le damier sur 80 colonnes). 



Logestion do voire on on 
AO colonnes est plus com- 
plexe quo cello do 
I'toon 40 colonnes. 

En eMei . un caroct&re sur 
deux os( en mdmotre 
auxilioirc 6 la mfime 
odresBo qu'en mimoire 
normals (dite residents). 

Ainsi pour lire ou ecnro 
chaque caractfere, it faut 
dobord toper un : 

POKE 49237,0 (SC055) qui 
dofmo occis 6 la 

VEM AUX. pun un 
POKE 49234.0 (SC054) qui 
romtne en memoire vive* 

En langog* machine, on 
nt procWe pos outromenf 
(voir poge suivanle). 

Ugnt 330 : Adresse de 
base de choque ligne- 
♦cron [valoble on 40 ou 
on 90 colonnes). 



10 OiMQ t; < on T r » oM i nt » ( v i * 

ion** 4 aralyitr, N1iMt*K pat 
t <t^r*ndr« choqu* Imtn/ctbn 
tm mod* direct™ ■ 



DAMIER. BAS 80 COLONNES 

108 PRINT CHR* (4>"PRi3": PRINT I HOME 

118 P - ABS <P - 1): POKE -49236 ♦ P.fl 

128 READ A: IF NOT <A> THEN POKE 49236.8: GOTO 158 

138 B ■ A ♦ 39 

148 FOR I = A TO B: POKE I ,32: NEXT i GOTO 118 

158 GOS'JB 318: G03UB 328: PRINT : PRINT I PRINT " ET MAI 

NT EN ANT PASSONS A LA ROUTINE EN LANGAGE MACHINE. EVI 

DEMMENT PLUS RAPIDE" : GOSUB 318 
168 PRINT CHR» ( 4 ) " BLOAD DAMIER. 88cp* 
178 CALL 768: GOSUB 318 

188 GOSUB 328: LIST 198.218: GOSUB 318: CALL 768: GOSUB 
318 

198 PRINT CHR8 (17): GOSUB 318 
288 PRINT CHR» (18): GOSUB 318 
218 PRINT CHR» (17): GOSUB 318 

228 CALL 768: GOSUB 318: GOSUB 328: LIST 238,258: GOSUB 

318: CALL 768: GOSUB 318 
238 PRINT CMP* (18): CALL 768: GOSUB 318 
248 PRINT CHR» (21): CALL 768: GOSUB 318 
258 PRINT CHR* (4)'PRf3"i PRINT I CALL 768: GOSUB 318 
268 GOSUB 328: PRINT : PRINT I PRINT "<1> A REFAIRE <2> 
MENU GENERAL DE LA DISOUETTE <3> FIN-PROGRAMME EN 

MEMOIRE ' i : GET R»: PRINT 
278 IF Rt ■ THEN RUN 

288 IF R» * "2" THEN PRINT CHR» (4)"RUN MENU' 
298 IF R* = *3' THEN HOME I END 
388 GOTO 268 

318 CALL - 198: POKE - 16368.8: WAIT - 16384.128,127: PO 

KE - 16368,8: PRINT : RETURN 
328 POKE 37,18: CALL - 958: RETURN 

338 DATA 1824.1152,1288.1488,1536.1664,1792,1928,1864.11 
92,1329,1448.1576.1784.1632.1968.1184,1232,1368.1488 
.1616,1744,1872.2888,8 „ 



TMMPUN MICRO 



15 



ECRAN-DAMIER 



(suite et fin) 



0300- 


20 


58 


FC 


JSR 


»FC58 


Homo 


0303- 


A0 


00 




LDY 


f»00 


Y ■ 


0305- 


20 


CI 


FB 


JSR 


»FBC1 


a ^m m ^mu - ^Hi fa A Mm ■ 

BA5CALC colcule 1 ad r esse a& baso 


0308- 


A* 


20 




LDA 


£S20 


1 4 1 Mt ft A 

fc space inverse mis dans 1 accumuioteur 


030A- 


■ i * 

E6 


25 




I NL 


•25 


f*\f l\/lAfl an Anti^t — f V 4- 1 


030C- 


3D 


55 


CO 


STA 


SC055 


Pour lire ou exrire on MEM.AUX. (page 2) 


030F- 


91 


28 




STA 


<»28> ,Y 


A copie6 l adresse lueen$28/2v + Y 


031 1- 


C8 






INY 




Y = V + 1 


0312- 


C0 


28 




CPY 


£*28 


Ml ■ ■ 4 mm. mm m mmt m mWm 

YesHlegal6S28(40) ? 


0314- 


90 






BCC 


•030F 


S'll est plus petit. Hgno inocheve* 


0316- 


•18 






PHA 




Content de A ompiio 


0317- 


98 






TYA 




Y est mis dans A 


0318- 


18 






CLC 




AnnulaHon de la relenu© 


0319- 


69 


57 




ADC 


£S57 


A = A + $57*.. hroon bas de page 


031B- 


A8 






TAY 




mi to tt. 1 1 A 1 U 

Nouvelfe valeur de A dans Y 


031C- 


8D 


54 


C0 


STA 


9C054 


Pour lira ou ocrire en MEM. normole 


031 r- 


6B 






or & 


CS28> ,Y 


On recupere A sur Iq pile 1*AJJ 


0320- 


91 


28 




STA 


OnlAcHi6radresselu©en$J8/29 + Y 


0322- 


C8 






INY 




Y ^ Y + 1 


0323- 


C0 


A8 




CPY 


£»A8 


Yesi-ilegoldSAS (lire on bas de page) 


0325- 


90 


F9 




BCC 


S0320 


Non 1 on no pas ecrit tout© la lign© 


0327- 


E6 


25 




INC 


•25 


CV = CV + I (VTA8) 


0329- 


A5 


25 




LDA 


>25 


Valeur de CV dans A 


032B- 


C5 


23 




CMP 


S23 


Esf-elle egale 6 cell© conlonue dans £23 ? 


032D- 


P0 


D4 




BNE 


•0303 


Non : on a encore des lignei 6 ecrire 


032F- 


A9 


FF 




LDA 


£»FF 


Curseura lo hgno . et 
refour ou Bosic 


0331- 


85 


25 




STA 


•25 


0333- 


60 






RTS 






B5AVt DAMIiK.Bw cp . AU8V. IW* — 



IL FAUT 
SAVOIR 



BASCALC ($FBCl) catculo. on le sait. I'adresse de base de chaque 
ligno do T^cron. 6 partir de lo valeur (0 6 Si 7} contenue dans $25 
(CV). On frouve cette adresse de base dans BASl et HASH ($28 el 
29). A noter que la memoke $23 contienl le numdro (1 6 24) do la 
dernl&re ligne de I'fcran. Si elle n*a pas &6 modiliee, on sait done y 
trouver $18 (24), 

128 octets ($80} sdporent Padresse de base de la ligne do celle de la ligne I... et ainsi 
de suite, de 2 en 2 {paire-tmpoire. palre-impaire r etc.)*-. d'ou les ^tranges additions obser- 
vees dans la routine ci-dessus ($28 + S57 = $7F), De meme, plus loin, $A8 = $28 + $80 . 

Et voil6 ! j'espfere, avec ces quelques demonstrations, vous avoir donne envie de foire, 
voufi oussi. quelques courtes incursions dons le "t6n6broux" (en apparence) langoge 
machine* C'esl un jeu de togique qui voul blen le Mastermind el ses nombreux d6riv6s ! 

NESTOR 



16 



GUY-HACHE 



■ 



LANG AGE MACHINE 



ProDOS 



INITIaVTION 



7 


6 


5 


4 


3 


2 


1 





N 


V 


■ 


B 


D 


1 


Z 


c 



AND.DEMO 



HUIT bits constituent un octet... du moins ovec le 6502 (ou 65C02) et quelques autfes. Les signes 
cabalisltques NV8DI7C son! des id .ateurs qui prennent lo valour ou 1 suivont le mode ou 
t'etot du processeur. Ainsi. C = 1 quond la retonue est 4i 1 ; Z = 1 si le dernier resultat est nul 
{sll / a eu egalite dans une comparaison). II est bon de savoir que le bit de signe est N {6 1 quand le 
dernier calcul a donno un rosullal nogatif). 

Mais lobjel de cet article est outre : comment forcer un ou plusieurs bits a 0... ovec {'instruction AND ? 

Avon! d oiler plus loin, signaloni qu'il est impossible de comprendre les operations sur les bits sans avoir 
soui les yeux un tableau des codes HEXA et (surtout) binaires des 255 premiers nombres. C'est lobjel de la 
rich* de ce numero. 

\j [j> est une operation togique (comme ORA el EOR) et opere bit par bit. trfcs simplemenl : 1 — 1 = 

1,1 — = 0. — 1=0. Mais plusieurs exemples volent mieu* qu'un long discours (LDA 

tionlfle que Ton ploce dans I'Accumulateur lo valeur indiquee 

LDA 
AMD 
RESuLTAT 



11111111 $FF 
00000000 $0 
00000000 SO 



11111111 
00000001 



$FF 
$01 



mil m 

I 0000001 



SFF 
$81 



}000000i S8I 



I 



QUESTION : 

Cbmment torcer a le seul bit 4 ? Comme ceci 

APPLICATION 



LDA 11111111 $FF 

AND moil ii $ef 

RE SUIT AT 11101111 SEF 01000101 $45 



AVOUEZ 
QUE C'EST 
PRATIQUE! 

01010101 $55 
1 1 1 01 1 1 I $EF 



El volci un petit programme d'applicalion. enti&rement en langoge machine. 
Objet : afficher les caracteres de I'olphabet en mode inverse... mais 
leulemonl si leur valeur est Impairs. Consults* notre FICHE. Vous cons!atere2 que le bit de tous les 
caracteres impairs... est o 1, d'oii l interet de AND. Possons done 6 lo routine (lancee par CALL 768). 



AND.DEMO 



0300- 


21 


58 


FC 


JSR 


•FC58 


Home 


0383- 


A9 


08 




LDA 


£980 


A = 


0305- 


65 


86 




STA 


986 


Adresse 6 6 


0387- 


E6 


86 




INC 


906 


Memoire6 + 1 


0309- 


AS 


86 




LDA 


•06 


M6moire 6 dons Accumuloteur 


030B- 


29 


a: 




AND 


£901 


IT VOICI AND... 


030D- 


ft 


it 




BEO 
LDX 


90320 


Si on obi lent 0. pas d'afkhage 


830F- 


A2 


82 




£*02 


Autremant X = 7pourenvoye> 1 espaca 


8311- 


A5 


86 




LDA 


906 


Relecture de la memoire 6 


8313- 


28 


AC 


F9 


JSR 


9F94C 


PR813 offlche A + X — 1 ospace 


0316- 


A6 


86 




LDX 


906 


Memoire 6 dons X 


0318- 


A9 


88 




LDA 


£900 


A = 



IREV.FLIN MICRO 



17 



AND. DEMO (suile) 



031A- 


20 


24 


ED 


JSP 


9ED24 


031 D- 


20 


62 


FC 


JSR 


9FC62 


6320- 


A5 


06 




LDA 


306 


0322- 


C9 


1A 




CMP 


£S1A 


0324- 


D0 


Et 




BNE 


90307 


0326- 


A9 


06 




LDA 


f906 


0328- 


B5 


20 




STA 


920 


032A- 


A<» 


21 




LDA 


£921 


032C- 


85 


21 




STA 


921 


032E- 


20 


58 


PC 


JSR 


»FC58 


0331- 


A9 


FP 




LDA 


£*FF 


0333- 


85 


25 




STA 


925 


0335- 


A9 


1 1 




LDA 


£900 


033?- 


85 


3A 




STA 


93A 


0339- 


A9 


03 




LDA 


£903 


033B- 


85 


3B 




STA 


•3B 


033D- 


A9 


10 




LDA 


£•10 


033F- 


20 


63 


FE 


JSR 


9FE63 


0342- 


A0 


16 




LDY 


£»16 


0344- 


B9 


8D 


06 


LDA 


S068D.Y 


0347- 


C9 


AB 




CMP 


£9A0 


0349- 


FB 


02 




BEO 


9034D 


034B- 


29 


3F 




AND 


£93F 


034D- 


99 


8D 


06 


STA 


9068D.Y 


0350- 


B8 






DEY 




0351- 


D0 


Fl 




BNE 


90344 


0353- 


A9 


M 




LDA 


£900 


0355- 


85 


20 




STA 


920 


0357- 


A9 


28 




LDA 


£928 


0359- 


85 


21 




STA 


921 


035B- 


A9 


12 




LDA 


£912 


035D- 


85 


25 




STA 


925 


035F- 


20 


62 


FC 


JSR 


9FC62 


0362- 


20 


22 


FC 


JSR 


9FC22 


0365- 


A2 


08 




LDX 


£908 


0367- 


20 


4A 


F9 


JSR 


9F94A 


036A- 


20 


80 


FE 


JSR 


9FE80 


036D- 


A0 


03 




LDY 


£903 


036F- 


A9 


61 




LDA 


£981 


0371- 


29 


3A 


DB 


JSR 


9DB3A 


0374- 


20 


B4 


FE 


JSR 


9FE84 


0377- 


20 


E4 


FB 


JSR 


9FBE4 


037A- 


20 


88 


FB 


JSR 


9FB88 


037D- 


21 


58 


FC 


JSR 


9FC58 


0380- 


60 






RTS 




De 381 & 397 : menage IMPAIR OU PAIR AVEC AND : 


Ml : 49 


4D 


50 


41 49 


52 20 


4F 55 2C 


4E 


44 


Off 









On off Icho loi deux octet* de X, A 
Roiour chariot 
On recupdre la valour do A 
Ett-ello 690106$] A (26; ? 
Non : encore un four 
A = S06 

$06 stockeen $20 
A = $21 

$21 stockeen $21 
HOME 



] 



POKE 32.6 



POKE 33.33 ($21) 



] 
] 
] 

] 



Curseur on hour de Tecron 



On place en $3A el $36 I'odresse de deport 
de cette routine et dan* A lo nombre des- 
tructions & disassembler, puis $F£63 fail le 
rest© 

Y = $16 (22) 

Lecture de la mimolro $690 + Y 
EsI'CO un ospace ? 

Si ouf on ne le tronsformo pas. . - on saute ! 
Non : ovec AND. caract&re mode inverse 
II est r**crlt 

Y * Y — 1 

St an n'esi pas 6 0. encore un tour 

Y £tam 60. on pouvoit economisor une ins* 
tructton on utilisanr STY $20 

A = S28 (40) pour ritablir lo fenAtre d'ecran 
norm a Id 



CV$12(VTAB19) 

Retour chariot 

VTAB place le curseur en CV 

X = 6 pour envoyer 8 e spaces 

5ETINV afflchacjo en mode Inverse 

STROUT offiche le messogo donf t'adress* 
est mise dons Y et A (il so tormine par 0) 

SHNORM mode normal 
BELL? se folf entendre 
KBDWAIT attend une louche 
HOME 
BASIC 



4E 4F 4E 20 41 56 45 43 20 41 



Pour terminer : CTRL-C RETURN, puis B5AVE ANO.OEMO, AMO0 LS90 



It 



GUY-HACHtTTt 



LANCAGF MA( HI\F I'MttllffHi 



INITIATION 



Toutes les lignes de I'ecran 
inversees en un clin d'oeil ! 



108 TEXT : PRIKT CHR» <21>r HOME 
110 GOSUB 250 
129 ON ERR GOTO 190 
138 FOR I - I TO 2«: PRINT II 

lO IF I • It THEN PRIWT ' ■ f.i INVERSE I PRINT ■ CONTROL 

E-C POUR INTERPOMPRE « : I NORMAL 
151 IF I < 24 THEN PRINT I 
168 NEXT * 
170 VTAB ll CALL 768 

180 CALL - I98t POKE - 16368. B: WAIT - 16384.128,127: PO 

KE - 16368.8: GOTO 170 
190 HONE : POKE S8.0: POKE 59,3: CALL - 418: GET Rf-i PRI 

NT 

288 PRINT : HOME : VTAB 22: PRINT ■<!> ENCORE <2> MENU D 

ISQUETTE <3> FIN CALL - 198: GET R»: PRINT 
218 HOME : IF M ■ M" THEN GOTO 120 
220 IF R» = "2" THEN PRINT CHR» (4)"RUN MENU" 
230 IF R» < > "3* THEN 200 
240 END 

258 FOR I - 768 TO 768 + 33: READ R: POKE I.R: NEXT : RE 
TURN 

260 DATA 162, 23, 138, 32, 193. 251. 160.8.177.40,72, 200. 192. 4 
0.208.248.160,0.104,145,40,200,192,40,288,248.202.16 
.229.169,255.133.37.96 



03130- 


A2 


17 


LDX 


£•17 


X = $17 (nombre de lignes d'ecran • 0- 73) 


B382- 


8A 




TXA 




X passe dans A (sans etre modif le) 


0383- 


20 


CI F8 


JSR 


•FBC1 


BASCAtC donne I'odrosse tju premier ociel 


0306- 


A0 


00 


LDY 


£•00 


Y a pour lo boucle 


0388- 


Bl 


.28 


LDA 


(»28>,Y 


Lecture de lo memolre dam I'adresse esi en $78-29 + V 


030A- 


48 




PHA 




Conienu de A ompile 


030B- 


C8 




I NY 




Y = Y+ 1 


830C- 


C0 


28 


CPY 


£328 


Y est.it egaldS?B (40) 7 


030E- 


D0 


F8 


BNE 


•0308 


Non | encore un tour (on va a S308) 


0310- 


M 


M 


LDY 


£•00 


Y = pour seconds boucte 


0312- 


68 




PLA 




On recupere une valour de lo pile 


0313- 


91 


28 


STA 


C»28>,Y 


On l ecrli 6 I'adresse lue en S28-39 + Y 


0315- 


C8 




I NY 




Y = Y + 1 


0316- 


C0 


28 


CPY 


£•28 


YesMleoa'oJM |4fl) ? 


0318- 


D8 


F8 


BNE 


•0312 


Non : on recommence 


031A- 


CA 




DEX 




X = X — 1 {nombre de lignes) 


031B- 


10 


E5 


BPL 


•0302 


St on est positll, encore un tour 1 


031D- 


A9 


FF 


LDA 


£«FF 




031F- 


85 


25 


STA 


•25 


Curseur en haul de I'ecran et retour au Basic. 


0321- 


60 




RTS 







MIROIR 




Lo derni6re voleur emph 
lee vo devenir lo pre- 
miere d&pilAe... ce qui 
permet de retournor foci- 
lemenl les 40 octets de 
choque llgno. 



Ne taper pot lo routine 
en [engage machine... 
puisqu'elle est conlenuo 
dons la ligne 260. 



TKEMPUN MICRO 



It 



LAN GAGE MACHINE 



TETE EN BAS 



ET maintenont, renversons les lignes de 
I'eaan... comme cela, simplement pour 
le plaisir, en attendant qu'une (bonne) 
occasion d'utillser la routine m presente. 




INITIATION 



185 

lie 

115 
120 

125 
138 
135 
MB 
145 

150 
155 
168 
165 
178 

175 
!8fl 



185 



CONTROLE-C P 



TEXT i PRINT CHR» <21>: HOME : GOSUB 175 
ONERS GOTO 145 
E ■ 35: FOR I = 1 TO 24 
PRINT I: SPC< E>I * 

IF I = 9 THEN HTAB B: INVERSE I PRINT 
OUR STOPPER NORMAL :E = E - 1 
IF I < > 24 THEN PRINT ■■ 
NEXT 

VTAB l'i PRINT ■■• 

GOSUB 170: CALL 768: GOTO 135 

HOME : VTAB 22: CALL - 198: PRINT "<1> ENCORE <2> ME 
NU DISOUETTE <3> FIN 
PRINT : HOME I IF R» 

IF Rl « -2" THEN PRINT CHR» <4)"RUN MENU* 
IF R» < > '3' THEN 145 
END 

CALL - 198: POKE - 16368,0: WAIT - 16384.128.127: PQ 
KB - 16368.8: RETURN 

FOR ! ■ 76B TO 852: READ R: POKE I,R: NEXT I RETURN 
DATA 169.0,133.6.169.32.133.7.162.23.138.32.193.251 . 
168.8.177,40.145,6.280.192.40,288.247.165,6.24.105.4 

0.133.6.144,2.238,7,202.16 

DATA 227.169.32.133.7.169.0,133.6,162.0,138.32.193.2 
51.168.8.177.6.145.48.288.192,40.208,247.165.6.24,10 
5.48.133.6.144.2.230,7,232,224.24.208.225.169,255,13 
3,37,96 



: GET P» 
■1' THEN 110 
CHR» (4)" PUN 



Dans la routine en 
langage machine 
(lignes 188-185) 
expliquee ci-contre, 
on recopie I'ecran b 
partir de I'adresse 
$2000, puis on le 
reecrit en 

commen^ant par la 
ligne du bas. 
On pourroit utiliser la 
pile (un peu comme 
on I'a foil avec 
MIROIR) de la 
maniere suivante : 

• Lire et empiler lo 
ligne 

• Lire et empiler la 
ligne 23 

• Depiler pour ecrire 
la ligne 

• D6piler pour ecrire 
la ligne 23 

... et ainsi de suite, 
iusqu'611 et 12 
(voir page 22). 



W% r> ■ Si. aprfcs le CALL — 151 blen conno, vous 
W% |^ I topffz ces 5 instructions (uniquement ce 
2^^^mm q«i «»«H9ro»).P««*3*»G_ RETURN. 

vous tonslaterei que lo m6molfe S6 con- 
sent $fT. En effel, BPl renvois 6 I'odrtue $304 tont que 

le re*ullat est dgol on »up*rleur A 0. 



300 ; 


A9 


02 


LOA 


£$02 


302 : 


05 


06 


STA 


$06 


304 : 


C* 


06 


DEC 


$06 


306 : 


10 


FC 


BPL 


$0304 


300 : 


60 




RTS 





20 



GUY HACHETTt 



TETEEN BAS (LIGNES 180-185) 



0300- 


A9 


00 




LDA 


£900 






B9M- 


RS 


06 




STA 


90 6 




iniiiDiisoiiofi aes poinrour« >o'/ avec >/uww \pour 


0334- 

VWV T 


A9 






LDA 


£920 

m\ **** 






8306- 


85 


07 

V 1 




STA 


907 






0368- 

*" " W 


A2 


17 




LDX 


4*17 




Initialisation nombre de liqnes ($17 = 23} 


030ft- 


9A 






TXA 






X passe dans A (mois n'esl pos modlH6) 


039 B- 

w 


20 


CI 


FB 


JSR 


*FBC1 




&ASCALC cakule f odresse do baso 




■ 


BO 




LDY 


f »00 




Y = pour lo boucle 


0310* 

0312- 


Bl 

91 






LDA 
STA 


<*28) t Y 
(S06) .Y 


— 


i lecture ecran el mimo. 6 porlir de $2000 


0314- 


ce 






I NY 






Y - Y + t 


03 1 5- 


C0 


26 




CPY 


£»28 




A t-on lu 40 carocr&res ? 


0317- 


D0 


F7 




BNE 


90310 




Noo : encore une lecture 


0319- 


A5 


I ft 




I. DA 


906 




Contenu de lo memoir© S6 dons A 


031B- 


IS 






CLC 






Annulotion de to retenue 


031C- 


69 


28 




ADC 

■ 1 mm Vf 


£928 




A = A + $28 U0) 




M 

" I 1 


■ Q 




err a 
j i n 


906 






0320- 


90 


02 




BCC 


$0324 




S'il n y o pos eu de retenue r on saute 


8322- 


E6 


07 




INC 


•07 




Sinon il (out Incremerttor le pointeur $7 




CA 






Ula 






V — V 1 


032S- 


IB 


E3 




BPL 


9030A 




Voir bos de poge precedonle 


0327- 


A* 


20 




LDA 


£920 






0329- 


AR 


07 




STA 


907 




Nouvelte mllioijsoiion des pomteurs 56 et $7 


032B- 


fig 

n ~ 


I I 




LDA 


£900 






pc 
dD 


v O 




Jin 


Ail A 














t ny 






Puis de X tcette fois on oori do ) 


0331- 


6A 






TXA 






Le deroulement est rigoureusement 


0332- 


20 


CI 


FB 


JSR 


9FBC1 




le memo que dans la premiere porlle. 


8335- 


A0 


00 




LDY 


£S00 




si ce n'est que Ton incremente X 


8337- 
0339- 


81 
* 

91 


06 
r:> 6 




LDA 
STA 


(SB6) .Y 
( 928} .Y 




au lieu de le decrementer. + 4 
et que 1 on lit 6 1 odresse 
indiquee par les pomteurs 


033B- 


C8 






I NY 






pour 6cr>re 6 celle indtquee por BASC Ai C . 


033C- 


C0 


28 




CPY 


f928 




033E- 


D0 


F7 




BNE 


90337 






8340- 


A5 


06 




LDA 


906 








1 o 






rr c 












28 




& TV* 










MB 

OD 








9fl6 






0347- 


90 


02 




BCC 


9034B 






0349- 


E6 


07 




INC 


907 






034B- 


E8 






I NX 






RAPPtL ; L adfcuogo lnd)ve<t permot do lire (ou 


18 




£918 




d'ecrtr*) " Todrcico indiqu^e ^ Y. Ainii quoitd Y votil 5 


034C- 


Efl 




CPX 




ef que les pointers $*-7 contknncnt 0020. en lit \m 


034E- 


DO 


El 




BNE 


90331 




cont«nu dm la memoirv S30H + V, toit 12H0S 


0350- 


A9 


FF 




LDA 


£9FF 




CV = 


0352- 


as 


25 




STA 


925 




0354- 


60 




RTS 






Retour ou Basic 



21 



TETE.EN.BAS 



(VERSION 2) 



A routine de retournement d'ecran va 
L de S300 6 347 (IS48) el correspond aux 
Mgnes 175-180 du programme DEMO. 
La parlie $348-360 remplit I'ecran de lignes 
de carac teres. 

180 TEXT : PRINT CHR9 (21): HOME 

185 GOSUB 178 

118 ON ERR GOTO 148 

IIS CALL 840 

12fl VTAB 24: INVERSE : PRINT "PRESSE 
Z UNE TOUCHE (CTRL-C POUR PIN)* : 
i NORMAL 
125 VTAB Li PRINT 

130 CALL - 198: POKE - 16368.0: WAIT 
- 16384.128.127: POKE - 16368.0 
: CALL 768:X - ABS (X - l)i GOTO 
130 

135 X = X * li INVERSE : PRINT X:: N 

ORMAL : RETURN 
140 IF X THEN CALL 768 
145 VTAB 24:X = 0: GOSUB 135: PRINT 

■ ENCORE •:: GOSUB 135: PRINT 1 

MENU DE DISQUETTE ':: GOSUB 135: 
PRINT " FIN > ';: CALL - 198: G 

ET R» 

159 VTAB l: PRINT "': IF R* = "1" TH 
EN X - 0: GOTO 128 

155 IF P» - "2" THEN PRINT CHR9 <4)" 
RUN MENU 

160 IF R» < > "3- THEN 145 
165 HOME : END 

170 FOR I = 768 TO 864: READ R: POKE 
I.R: NEXT i RETURN i REN LA POU 
TINE "TETE.EN.BAS" NE COMPREND 
UE LES 72 PREMIERS OCTETS (768 A 
839) 

175 DATA 169.23.133.6.162.0.138.32.1 
93.251.168.39.177.40.72.136.16.2 
50.165.6.32.193.251.160.39.177.4 
0.72,136.16.250.138.32.193.251.1 
60.0.104.145.40 

180 DATA 200.192.40.208.248.165.6.32 
.193.251 .160.0.104.145.40.200.19 
2.40.208,248.198.6.232.224.12.20 
8.195.169,255.133.37,96 

IBS DATA 32.88.252.162.0.138,32.193. 
251.138.185.193.168,39,145.40.13 
6.16.251.232.224.23.208.237.96 



300- 


A9 


17 




LDA 


£317 


302- 


85 


06 




STA 


306 


304- 


A2 


00 




LDX 


£900 


306- 


8A 






TXA 




307- 


20 


CI 


FB 


JSP 


sFBCl 


30A- 


A0 


27 




LDY 


£»27 


30C- 


Bl 


28 




LDA 


(»26).Y 


30E- 


48 






PHA 




38F- 


88 






DEY 




310- 


10 


FA 




BPL 


9030C 


312- 


A5 


06 




LDA 


906 


314- 


20 


CI 


FB 


JSR 


9FBC1 


317- 


A0 


27 




LDY 


£927 


319- 


Bl 


28 




LDA 


(928J.Y 


318- 


48 






PHA 




31C- 


88 






DEY 




31D- 


10 


FA 




BPL 


90319 


31F- 


8A 






TXA 




320- 


20 


CI 


F8 


JSR 


•FBC1 


323- 


A0 


00 




LDY 


£900 


325- 


68 






PLA 




326- 


91 


28 




STA 


(928) .Y 


328- 


ce 






I NY 




329- 


C0 


26 




CPY 


£328 


32B- 


D0 


F6 




BNE 


90325 


32D- 


A5 


06 




LDA 


906 


32F- 


20 


CI 


FB 


JSR 


9FBC1 


332- 


A0 


M 




LDY 


£300 


334- 


68 






PLA 




335- 


91 


26 




STA 


(»28).Y 


337- 


C8 






I NY 




338- 


C0 


26 




CPY 


£928 


33A- 


D0 


F8 




BNE 


90334 


33C- 


C6 


06 




DEC 


906 


33E- 


E6 






I NX 




33F- 


E0 


0C 




CPX 


£90C 


341- 


DO 


C3 




BNE 


30306 


343- 


A9 


FF 




LDA 


£3FF 


345- 


85 


25 




STA 


325 


347- 


68 






RTS 




348- 


2H 


58 


FC 


JSR 


3FC58 


34B- 


A2 


00 




LDX 


£300 


34D- 


8A 






TXA 




34E- 


20 


CI 


FB 


JSR 


SFBC1 


351- 


M 






TXA 




352- 


69 


CI 




ADC 


£SC1 


354- 


M 


27 




LDY 


£•27 


356- 


■»i 


26 




STA 


(328).Y 


358- 


86 






DEY 




359- 


10 


FB 




BPL 


30356 


35B- 


E6 






I NX 




35C- 


EB 


17 




CPX 


£317 


35E- 


D0 


ED 




BNE 


3034D 


368- 


r.c 






PTS 


■ 
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TRANSLIST 

Ou comment creer un fichier source a partir 
d'une simple routine en langage machine ? 

PRENONS un exemple precis ; celui de TETE.EN.BAS (cl-contre). Tremplin 
Micro publie le desassemblage des N instructions de cette petite routine, 
mais sans passer par un assembleur. C'est done la replique exacte du listage 
que vous pouvez obtenir sur votre ecran. Lo meme routine, presentee par un 
Assembleur (type ProCODE) permet de sltuer les differents branchements 
(boucles), d'identifier les labels et. eventuellement, gr6ce a I'indication de 
I'adresse de depart (ORG), de modifier facilement toutes les odresses. 
D'ou I'interet presente par TRANSLIST qui disassemble — tout seul et comme 
un grand — n'importe quelle routine binaire (instollee 6 I'adresse $300 et de 
longueur inferieure 6 $D0). pour la memoriser sous forme de fichier-texte... 
accepte par les assembleurs. 



PROGRAMMES [ 

Instoltez lensemble des programmes sur une 
disquotte speoale ProDOS. CeuK-ci son! en 
Bosk, at ou nombro de trois (plus un lichier) : 

• TRANSLIST (le gros morceau). 6 parllr de la 
page 25 

• LABELSXREER (court), page 24 

• LABELS LIRE (plus court encore I ), page 28 

• IABELS (le fichier cree par vos soins) 

Creation dot labels 

Pour lonctionner convenablement. TRANSLIST 
doit pouvoir consulter un lichier LABELS conte^ 
nant au molns un label, Bien sur, plus le nonv 
bre do labels sera grand el plus le fichier- 
source g^n^re par TRANSLIST sera documents 
(par conlre, le temps do troitement augmentera 
doutontj. 

Done : RUN LABELS.CREER... ot 6 vous de solsir 
VOS labels (nous vous suggdrons. page 24, une 
premiere liste}, dans la Jimitede... 300. 

Si vous d6slrez rellro votre fichier LABELS utili- 
se: LIT. LABELS. 



POU R L£S CO NNAISSEURS 

Chorgor lo fichier LABELS h partir d'un Attomblour 
nm pose aucun p rob I ©mo ti c»lul*cl n'utlliso pas lo 
typo bmalre pour toi ffchlors-iowrcet. 



UTILISATION 



IMPORTANT : n'oubliez pas de modifier le Pfit 
FIXE (Mgne 110) pour qu J il correspond? 6 celui 
do voire disquette (variable PFS). 

Des que TRANSLIST est lanci. II vous demand© 
de lui indiquor le... 

-*.nom du programme bmoire 
Ou, ledit programme figure sur ta meme dis- 
quette que TRANSLIST-.. et II suffit d'en toper 
directement le tltre„. ou il se trouve sur une 
autre, et vous devrez olors indiquer le nouveau 
prefixe. suivl du tilre (Exemple : TOTO ou 
/TRUCTOTO). En cas de foule de frappe, utili- 
ses lo touche DEL pour etfacor. 

Pour le reste, observez ce qui se passe sur voire 
dcran, et trjcotez un cache-col pour votre 
grand mere., si vous trouvez lo temps long ( 
Quand le nombre de labels est dleve et que le 
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Quelques id£es de LABELS... 



IMHIH r 

JUJBQ15U i 






06 


INDEXB 


Adressogo inieti 


07 


INDEXH 


Pot1>« haute 


OB 


VARl 


Variobltfi) page 


09 


VAR2 




19 


VAR3 




1A 


VARJ 




IB 


VAR5 




1C 


VAR6 




ID 


VAR7 




IE 


VARS 




IF 


VAR9 




30 


WNDIF1 


Mo*ge goodie 


3> 


WNDWDIH 


latpeu' l*n*He 


Tl 


WNOTOP 


Houl dt (on«lr* 


23 


WNDBTM 


6Gi - q tan£tre 


24 


CH 


Poiltton cuoeui horit. 


25 


CV 


Ponton tufww' vtrtl. 


30 


HMA5K 


bit point 


03D0 


V EC DOS 


Met la ProOOS on llgiw 


031 A 


INTDOS 


Rep>i» d« E'Soritn 


03f5 


AMPER 


*Ainp«fsan(J(S4C) 


03F6 


AMPERB 


S Ponip bane 


03F7 


AMPERH 


S Ponie houto 


cooo 


KBD 


Sains touch* wm *cho 


CO 10 


KBDSTRB 


Nettolo le bit 7 JC00B 


C03G 


SPKR 


Actuation MP 


DB3A 


STROU1 


AHtche uo« thotiw par Y A 


DB5C 


OUTDO 


AHiche 1 ottumuloteui 


F3DB 


HGR3 


Ettacemenl on pogof 


FBCI 


BASCAIC 


CakulodnMMfcran 


FC22 


VIAB 


Oeploce ewitur bbCV 


FC42 


CLREOP 


EH. jusqu* boi eaon 


FC58 


HOMf 


Efface l"«ran 


rc6: 


CR 


EnvoiB mow thanol 


FCAfl 


WAIT 


Boud* d'ottt*ite (Aa| 


FD1B 


KEVIN 


Entr*» raroe. ov« *d» 


FD0C 


RDKEY 


Foit dignoto curceur 


FDDA 


PR8VTE 


Aft. or: h4K0*ur?oclrfl 


Ffifn 


COUT 


Sorlie Gccumulatour 


FF3A 


BELL 


1 3. up 



programmo atteinl la llmite maximum autori' 
see, on a te temps de foire la pause-cate. Cert 
un peu comme avec un tompilolour, mois Ci 
n'esl pas une raison pour se priver de* (bens) 
services de TRAN5UST I 

' RESTRICTIONS | 

Suivanl la version de votre Apple, certain 
insfrucjions (et notamment les nauvolles, 
propres au &5C02 du He) ne seronf pot 
reconnues par TRANSLIST. , . el seront rempla- 
c£es par DFB (code non interpr6t6). VoW 
assembleur vous pormeMra de remettre d* 
I'ordre dans toui cela. 

Et matntenant, 6 vous de touer ! Naturelle- 
ment. si vous Imagine* des ameliorations capa- 
ble* de rendre celte version plus attrayonte el 
plus performante, Acrivez 6 son auteur... 



LABELS. CREER 



h 

i 
i 

i 



TEXT : PRINT CHR» (21 >: HOME :D* 
= CHR* (4>:CM» ■ " LABELS" I PRIN 
T D»"0PEH"CM*: PRINT D*' READ" CM* 
: ON ERR GOTO 110 

FOR NB » I TO 300: INPUT Lit: IN 
PUT L2»: INPUT L3»: NEXT 
PRINT D»" CLOSE" CM* :NB = NB - ll 
REM NB=N3P. LABELS POUR AJ0UTS 
HOME : HTAB 5: VTAB U INVERSE [ 
PRINT »i CREER DU COMPLETER 'LA 
BELS' :': HTAB tl VTAB 8: PRINT 
■ADRESSE":: NORMAL I PRINT 1 ** 
: INVERSE 

HTAB U VTAB 111 PRINT "LABEL": 
HTAB ll VTAB 14: PRINT ■ COMMENT* 
IRE": NORMAL I HTAB ll VTAB 16: 
PRINT ':": HTAB 30: VTAB 6: PRIH 
T '->"NB 

HTAB 11: VTAB 8: INPUT "" :AD»: I 
F AW - M THEN 125 
IF AD* ■ THEN HOME : PRINT D 

•■CAT": END 

HTAB 18: VTAB IU INPUT "' iLA*: 
IF LA* = "" THEN 135 
HTAB 3: VTAB 16: INPUT ■".CO*: 
F CO* ■ " THEN 148 
145 PRINT D»" APPEND" CM*: PRINT AD*: 
PRINT LA*: PRINT C0»: PRINT D*"C 
L0SE":NB = NB » ll HTAB 32: VTAB 
&: PRINT NB: GOTO 125 



I iee 
I 

| 105 

I 110 
I 

j 115 

I 120 
I 
I 

u 

I 138 
I 



135 



24 



CUV- MAC! 



• TRANSLIST 



1B0 ON ERR GOTO 765: REM TRA1TEHENT E 
PREUR 

IBS CLEAR : LOMEH: 12288: TEXT : PRI 
NT CHF* <21): HOHE :D* = CHR* (4 
):R* - CHR» (13):G» - CHR* (7>:T 

* ■ "i !": HTAB 13: VT 
AB 1 : INVERSE : PRINT T»: HTAB 1 
3: VTAB 2: PRINT ■ TRANSLIST • 
: HTAB 13: VTAB 3: PRINT T»: NOP 
MAL 

118 T* » FOR I = 1 TO 39:T* - T* 

♦ '_": NEXT :PF* = 'TM8': GOSUB 
828: REM CHARGE LM 

115 HTAB 38: VTAB 1: PRINT '(C) D.LU 
GAT' : HTAB 38: VTAB 3: PRINT 'VE 
RSION 2.1" 

128 HTAB 1: VTAB 18: PRINT "NOM OBJE 
T": HTAB 11: VTAB 13: PRINT "»38 
8 <--> »3CF': HTAB 3: VTAB 22: P 
RINT "7/VOLUHE (/SOUS-VOL) POUR 
CATALOGUE* 

125 HTAB 11: VTAB 10: PRINT '/VOLUME 
/FICHIER": CALL CtH - 11 :V = 101 
LO = 38: INVERSE : GOSUB 165: NO 
RMAL :N* * PHP* 

!38 IF LEFT* (N*.l> = ■?■ THEN HOME 
: PRINT WPRI3': PRINT D»'CATAL 
OG" RIGHT* <N». LEN (N*> - 1):CT 

• = "<T0UCHE PETOUR MENU>": GOSU 
B 798: RUN 

135 OG* » '388' :CM* = 'LABELS" :LO = 

388 t GOTO 245: REM CON ST ANTES 
148 : 

M5 REM ■■»«■■■■■■ ■ ■■■■■«■■ 
158 REM « SP.SAISIE « 
155 REN iiiiiiiiiiHiiiiiiii 
168 : 

165 PHR* ■ : FOR I = 8 TO LO - 1 
178 HTAB H * I: VTAB V: POKE - 16368 

.8: GET CARS: GOSUB 215 
175 IF I = 8 THEN HTAB H: VTAB V: PR 

INT SPC( LO) 
1B8 IF CAP* « CHR* <27) THEN 165 
185 IF CAR* = R* THEN 285 
198 IF CAR* = CHR* (127) AND I > 8 T 

HEN PRINT CHR* (8);: PRINT 1 "it 
PRINT CHR* (6>;:I ■ I - 1:PHP* 

= MID* (PHR*. 1,1): GOTO 178 
195 IF (CAP* < CHR* (33) OR CAR* > C 

HR* (63)) AND (CAR* < CHR* (65) 



OR CAR* > CHR* (98)) THEN 178 
288 HTAB H + I: VTAB Vj PRINT CAR*;: 

PHP* = PHR* + CAR*: NEXT 
285 IF PHR* = " THEN 165 
218 FOR P = 1 TO 288: NEXT I GOSUB 2 

15: RETURN 
215 FOR ZZ - 1 TO 4:Z = PEEK ( - 163 

36): NEXT : RETURN : REM 222 » 
229 : 

225 REM MIlllilliiiimilM 

238 REM « LECTURE ECRAN • 
235 REM .................... 

248 : 

245 HOME : TEXT : POKE 34.1: POKE 35 
,28:LI » 1: DIM S1*(388).S2*(388 
).S3*(380).ES*(388> 
258 FOR I = LEN (N*> TO 1 STEP - 1:C 
AR* = MID* (N*.I.l): IF CAR* < > 
V* THEN NO* = NO* * CAR* 
255 IF CAR* » •/• THEN FOR I ■ LEN < 
NO*) TO 1 STEP - 1:NN* ■ NN* * M 
ID* (NO*. 1,1): NEXT :NO» - NN*: 
GOTO 265 

268 NEXT :NO* = N»: REM CONSERVE NOM 

SANS DIRS 
265 IF RIGHT* (N0*,2) - V8' OR RIGH 
T» (NO*. 2) - '.C THEN NO* = LEF 
T* (NO*. LEN (NO*) - 2) 
278 IF RIGHT* (NO*. 5) = *.0BJ8" THEN 
NO* = LEFT* (NO*. LEN (NO*) - 5 

) 

275 CALL C: HTAB 1: VTAB 12: PRINT ' 
muHHHHHHW CREATION SOURCE BASE' 

288 HTAB 11 i VTAB 14: PRINT '* "NO*: 
HTAB 11: PRINT '«': HTAB 38: VT 
AB 14: INVERSE i PRINT 'CTL-C PI 
N ■(! HTAB 38: PRINT "CTL-S PAU 
SE": NORMAL : HTAB 17: VTAB 16: 
PRINT "ORG »'OG»: HTAB 11: PRI 
NT 

285 HTAB 1: VTAB 21: PRINT T*;: GOSU 

B 755 
298 : 

295 REM ■ «■ ■■■*■■■■ ... 

388 REM • ANALYSE LIGNE 22 • 
385 REM .................... 

318 i 

315 ON ERR GOTO 455 

328 FOR LI = 1 TO LO:ES»(LI) = ' " 
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325 CALL B: REM DESASSEMBLE UNE INST 

RUCTION SUR 1.2 OU 3 OCTETS 
338 FOR I = 8 TO 3iAD* = AD» * CHR» 

< PEEK U872 + I) - 128): NEXT : 
REM LIT ADR- 

335 FOR 1=8 TO 9:C1» = Cl* + CHR* 

< PEEK (1872 * I) - 128): NEXT i 
FOR I - 11 TO 12:C2* = C2* 4 CH 

R* ( PEEK (1872 + I) - 128) i NEX 

T : FOR I»M TO 15:C3* = C3» * 
CHR* < PEEK (1872 ♦ I) - 128): 

NEXT : REM LIT CODES 
340 IF C2S - ■ ' THEN CX = 1 t GOTO 

355: REM NBR. CODES 
345 IF C3» = ' " THEN CX - 2: GOTO 

355 
358 CX ■ 3 

355 CPT » CPT * CX: REM CUMUL CODES 

PAR INSTRUCTION 
368 FOR I = 28 TO 22:HN* = MN» + CHR 
• ( PEEK (1872 ♦ I) - 128): NEXT 
: REM LIT MNEMONIOUE 
365 FOR I = 26 TO 34:0P* ■ OP* * CHR 
» ( PEEK (1872 ♦ I> - 128): NEXT 
: REM LIT OPERANDE 
370 IF RIGHT* (OP*. I) = ' ' THEN OP* 
■ NID» (OP*,l. LEN (OP*) - I)' 
GOTO 370: REM LES ESPACES SONT D 
E TPOP 

375 IF HN* ■ "?r?" THEN GOSUB 410: G 

OTO 370: REM ASCIIS. OU 65C02 NO 

N DESASSEMBLE 
380 INC ■ INC + 1: GOSUB 425 
385 HTAB 17: PRINT MN*: : HTAB 23: PR 

INT OP*:: REM SORTIE VIDEO 
390 S1*(LI) = AD»:S2*(LI) = MN»:S3*( 

LI) » OP* 

395 IF MN* » 'PTS - THEN GOSUB 415: G 
OSUB 420: VTAB 20: PRINT I GOSUB 

425: PRINT ■ *' I 
400 IF CPT • CT THEN 455: REM SORTIE 

LECTURE 

485 Cl* = ":C2* « " :C3» = "1 GOSU 
B 415: NEXT LI: GOTO 455 

418 GOSUB 415:MN* = "DFB * Cl*: R 
ETURN : REM 'HEX' EOUIVALANT k ' 
DFB' (DIRECTIVE ASSEMBLEUR) 

415 AD* = * ' :MN* ■ "jOP* = "i RETU 
RN 

428 INC " INC * t i LI = LI * liES»(LI 



) b i RETURN 

425 INC* = STR* (INC): VTAB 19: HTAB 
(12 - LEN (INC*>): PRINT INC:', 
"i: RETURN I REM ECR1TURE A UNE 
TABULATION VARIABLE EN FONCTION 
DE LA LONGUEUR DU CHIFFRE. 

430 : 

435 REM ••••*«##••*••#•••#•• 
441 REM • TRAITEMENT LABELS* 
445 REM *»» • »•*■ ■ ■■«••■»»* 
450 : 

455 PRINT : PRINT I CALL C: PRINT "» 

«**•*«*•# RECHERCHE LABELS SYSTE 

ME": ON ERR GOTO 475 
460 DIM L19(380>,L2»(300),TA*(200).C 

M*( 280): REM TABLEAUX LABELS 
465 PRINT DXOPEN'CM*: PRINT D»"READ 

•CM*: REM LECTURE FICHIEP PRE- EN 

REGISTRE 

470 FOR I = 1 TO 300: INPUT L1*(I>:L 
1»(I) - ■*■ ♦ L1»(I): INPUT L2»( 
I>! INPUT CM*(I): NEXT 
475 PRINT DXCLOSE'CM*: PRINT : CALL 
C: PRINT '<•! - 1"> LABELS EN S 
TOCK': PRINT I PRINT "PATIENCE. - 
I 

488 : 

485 REM ••»«"«••»•••##•«•»«» 
490 REM • R EMPLACEMENTS * 
495 REM "«■■•"- - 

580 : 

585 FOR J = 1 TO I - it REM NBR. LA BE 
LS 

518 FOR K * 1 TO LI I IF S3*(K) = Ll* 
(J) THEN S3*(K) - L2*(J)iL = L ♦ 
1:TA*(L) = S3»(K) * ■ EOU " + L 
1»(J) ♦ ■ I* + CM»(J): PRINT 
::2 = PEEK < - 16336): REM CALCU 
L DU LABEL CORRESPONDANT 

515 NEXT : NEXT 

528 : 

525 FOR I = 1 TO L: REM SUPPRIME LES 
DOUBLES 

538 IF TAXI) = TAX I + 1) THEN 540 
535 = + 1:TA*(0) = TAX I ) 

540 NEXT :L = 
545 : 

558 REM •**•***••»» 
555 REM « LOCALISATION BRA. * 
560 REM **■»■•■»■! W * **** * *** 

565 : 

570 PRINT : PRINT I CALL C: PRINT '* 
»«*•*•»** CALCUI.S BRANCH EM ENTS' : 



OUV-HACHETTE 





PRINT 




INT 


57S 


DIM Tl*(300>: REM TABLEAU LABELS 


690 


FOR LT = 1 TO LI 


588 


FOP I » I TO LI : REM RECHERCHE B 


695 


RE* = T1»(LT) + ES*(LT> < S2*(LT 




RANCHEHENTS I NCOND 1 TI ONNELS ET A 




> 




PPELS DE SOUS-PROGRAMMES 


780 


IF S3*(LT) < > "" THEN RE* = RE* 


585 


IF S2*CI> ■ * JSR" OP S2»(I) » "J 




BB. Bl bi b^K. ■ .Hi ^ki k. ™ _ ki ■ 

* CHR* (32) * S3»(LT> 




HP" OP S2*(I) = "BRA" THEN GOSUB 


705 


IF E*(LI> ■ '•' AND LT ■ LI THEN 




595 




720: REM SI PTS EN FIN DE PROG. 


598 


NEXT : GOTO 615 




PAS D'ETOILE EN SUIVANT 


595 


2 - PEEK ( - 16336) :AD»= S3*(I> 


710 


PRINT RE*:RE* - " 




: FOR J - 1 TO LI: IF "»" + Sl»( 


715 


NEXT 




J> = AD* AND T1*(J> « THEN LA 


720 


PRINT D*"CLOSE"t CALL D 




= LA * 1:T1»<J> - "SPG- * STP» 


725 


GOTO 890: REM OU CT* » "<TOUCHE> 




(LA>:S3*(I> * T1»<J): RETURN 




"i GOSUB 1580: CALL C: TEXT : HO 


609 


IF "»■ + S1»(J) = AD* AND T1*(J> 




ME : END. . .ET DEL 1620. 1820 POUR 




< > THEN S3*(I) * T1*(J): RE 




SUPPRIMER LA PARTI E FACULTATIVE 




TURN 




DU PROGRAMME 


605 


NEXT : RETURN 


730 


z 


611 


f 


735 




615 


FOP I = 1 TO LI : REM RECHERCHE B 


740 


REM » CHARG.TYPE PROG. ■ 




RANCHEMENTS CONDITIONNELS 


745 




630 


IF S2*(I) - •BED" OR S2*< I > = 'B 


750 


; 




NE" OR S2*(I> - "BHI" OR S2»(I) 


755 


PRINT D*'BL0AD'N»".A»"OG»: CALL 




■ "BPL" OR S2*(I) - "BCS" OR S2* 




A:CT ■ PEEX (48840) ♦ PEEK (4884 




(I) « 'BCC OR S2*(I> = "BVS" OR 




1) ■ 256: RETURN : REM CT=LONG.F 




S2*(I) ■ 'BVC- THEN GOSUB 636 




ICHIEP PRODOS 


625 


NEXT : GOTO 670 


768 


• 


630 


Z - PEEK ( - 16336):AD» = S3»(I) 


765 


REM "Oi*io#fJO«*o##« 




i FOR J = 1 TO LI: IF "»" 4 SIX 


778 


REM 1 ERPEURS SYSTEMS • 




J) = AD* AND TI*(J) = " THEN LA 


775 


REM »«ft*k*M««44tt»*«*ff*ft 




» LA + 1:T!»(J) = "BCL' + STR* 


788 


1 




<LA):S3*<I) - T1*(J>: RETURN 


785 


PRINT D*"CLOSE': TEXT : HOME : P 


635 


JF '*' ♦ S1»(J) = AD* AND Tl*(J> 




RINT "ERREUR PRODOS N" PEEK (22 




< > •" THEN S3*U) = T1*(J>: RE 




2>c FOR I = 1 TO 1200: NEXT : R 




TURN 




UN 


640 


NEXT I RETURN 


798 


4mk. ^k A riikVi Aa a bb ■ ~ ■■ db AflBBi dk. dak -db ■■■l dkm ■■■ ai a - 

PRINT : CALL C: HTAB 30: PRINT C 


645 


• 




T»: POKE - 16368.0: WAIT - 16384 


650 






■ bb A bWj ^k ^kW. AMaVrnd A_kSAi k. A. 

.128,127: POKE - 16368,0: RETURN 


655 


REN ■ ENR.FICB. SOURCE • 




i REM SP.SAISIE TOUCHE 


660 


REM »**###IHt«OM"M«»llB 


795 


J 


665 


I 


880 




670 


PRINT i PRINT '••»«•»«• ENPEGI 


805 


B^B B^Bl . 4 Bl 1 B^B ■ ■ ■ 

RBI » CHARGE L.N, • 




STREHENT SOURCE" : PRINT I ONERR 


810 






GOTO 785 


815 


• 


675 


CALL C: PRINT D*'OPEN SOURCE': P 


820 


A « 12032: REM TRANSMISSION AUTO 




RINT D*"CLOSE": PRINT D*" DELETE 




HAT I QUE DE L' IMPLANTATION 




SOURCE": PRINT D*"OPEN SOURCE": 


825 


B = 12043: REM DESASSEMBLAGE D'U 




PRINT D*"WRITE SOURCE" : PRINT •» 




NE LIGNE 




■NO*: PRINT ■«': IF TI»(1) = " 


838 


C ■ 12096; REM BIP PARAMETRABLE 




THEN Tl*(l) • "PROG- 


835 


D • 12108: REM SI RENE FIN TPAITE 


588 


FOP I - I TO L: PRINT TA»(I>: NE 




MENT 




XT 


840 


FOR ADR * 12032 TO 12143: READ C 


685 


PRINT PRINT " ORG *"OG»: PR 







TREMPUN MICRO 



27 



TRAfSISLIST 



(suite) 



ODE: POKE ADR, CODE: NEXT I RETUR 
N 

645 DATA 173.185.199.133,8.173,186.1 
98.133.9.96.165.37,72.169.25.133 
.36,169.22,133.37.32.34.252,32.1 
56.252.165,8.133,68.164.9.132,61 
.162.1.32.129,254.169,1.32.99.25 
4,165.58,133.8.165,59.133.9.104. 
56.233,1.133.37,32.34.252.96 

8b8 DATA 162.20.44.48,192.136.298.25 
3.202.288.247.96.169,0,141.115.4 
7.169.6.141.116.47.173,48.192.13 
6.248.9,202.208.250,174,115.47.7 
6.86.47,238.115.47,286.230.206.1 
16,47.208.234.96 



855 
860 
865 
870 
875 



REM PARTI E FACULTATIVE 

I 

B 

REM ........ -r ........ .4 . . 

REM • EDITION ECRAN • 
REM ••••••■•*»«#*it"#<(*M 



885 
898 



B9G 



PRINT G»: PRINT I PRINT " DEMONST 
RATION <E>CRAN OU <I>MPRIMANTK ' 
:: POKE - 16368.0: GET X»: IP X9 
- OR X* - M" THEN IM - 1 
IP IN - 8 THEN TEXT : HOME I PRI 
NT D*'PR£3'i PRINT : INVERSE s P 

RINT *Ctrl-S pour stopper le lis 
ting... un peu de patience, mere 
|"l NORMAL 

IF IM = 1 THEN PRINT D*'PRf!': P 
RINT CHR» (9)"60N" 
985 PRINT : HTAB IB: PRINT •» PICHIE 
R SOURCE "N0»: HTAB 18: PRINT "* 
■: DIM Ml*(180).M2»(18e> 
910 FOR I = 1 TO L: FOR J = 1 TO LEN 
(TA»(I)>: REM RECONSTITUTION DE 
S VARIABLES POUR TABULER 
915 PA* o MID* (TA*(I>.J.1>: IF PA» 
= ■ ■ THEN M1*U> = LEFT* fTA»<I 
>.J):J ■ J » 4:M2*(I> = MID* (TA 
•U).J): GOTO 925 
928 NEXT J 
925 NEXT I 

938 FOR I - 1 TO L: FOR J - 1 TO LEN 
<M2*(I>) 

935 PA* = MID* (M2*(I).J.l): IF PA* 
- ■:• THEN M3*<I) MID9 (M2*(I) 



948 
945 
958 



955 
960 



965 
970 



PRINT M 
H 



.J - 1):M2»(I) * LEFT* (M2»(I>.J 
- I): GOTO 945 
NEXT J 
NEXT I 

FOR I = 1 TO Li HTAB 1 
1*(I>;: HTAB 20: PRINT 'EQU-ii 
TAB 29: PRINT M29C I > : : IF IM = 
THEN POKE 1403.40: REM ECRAN 
IF IM = 1 THEN POKE 36.40: REM 
HPRIMANTE 
PRINT M3»<I): NEXT 
RINT : HTAB 28: 
*-0G»: HTAB 10 



I: HTAB 10: 
PRINT "ORG 
: PRINT 



NEXT : FOR LT 
I: PRINT T1*(L 



975 



980 



FOP P - 1 TO 3000: 
- 1 TO LI: HTAB II 
T);: HTAB 28: PRINT S2*CLT>C HT 
AB 38: PRINT S3*(LT): FOR P ■ 1 
TO 580: NEXT : NEXT : HTAB 10: P 
RINT HTAB 10: PRINT '» 

FIN' 

PRINT G»: HTAB 38: PRINT '<M>enu 
<B>aalC "ii POKE - 16368.0: GET 
X*: IF X* - "M" OR X* = 'm' THE 

N PRINT D*VTM8/MENU" 

PRINT : END 



LIT. LABELS 



100 TEXT : HOME :D* = CHR* (4): PRIN 
T D*"PR£3": PRINT D*"OPEN LABELS 

PRINT D*"READ LABELS" : ONERR 
GOTO 128 

118 FOR I = I TO 380: INPUT A*: INPU 
T B»: INPUT C*: HTAB 1: PRINT Ii 
: HTAB 12: PRINT B*:: HTAB 25: P 



HTAB 38 
PRINT ■ 
NEXT J: 
128 PRINT WCLOSE": END 



PINT " EQU" : 
•II HTAB 48 
- ! TO 



PRINT "»'A 
■O: FOR J 
NEXT I 
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Votre bibliotheque 
INFORMATIQUE 



par Clement RENARD 



l g|GORITHMlQUE 



• INITIATION A I AIGOHITHMIQUE (Selin) 

Pour Chantol et Patrice Richard, tout ensei- 
gnement serieux de lo programmation doit 
r epos Of *ur une initiation sysfematique A 
lalgorithmtquc. Cest uno idee qui a fait son 
chornlo* De nombreux organismes (Minister© 
de (Education Nationalo, darts le cadre du 
plan "Inlorrnatique pour lous", Renault, Cre- 
dit Lyonnais, etc.) Tom adoptee. 

La premiere edition de col outrage, parue en 
1961, avalt beneficie d un excellent occueil, 
mais <l est probable que cetle nouvelle edi- 
tion — entierement revue (exercices plus 

nombroux, mise en page originate. — lera 
le bonheur d un public varle : lyceens de pre- 
miere et de terminate, eludionts, ensei- 
gnonts, inf ormaticiens pr ofessionnol*. , ♦ et 
outodfdacfei* 

Pour concevotr un programme, il convient 
Avidemment, dons un premier temps, 
donal/ser le problem©, puts de concevoir 
lolgonthme permettant d'aboutir le plus 
^implement possible, a la solution. 

Lti auteurs proposent done une methode 
d'opprentlssage accessible 6 tous lei debu- 
tants, quelle que soil leur formation ! ALADIN 
135 exercices corrlges.„ mais ausii des explications claires, souvent lllustrees par des tableaux 
significants. Rappelons que les auteurs ont obtenu, en 1984. pour leur ouvrage Programmotique. 
le Grand pri* de la litterature micra-informatique. fM/iiro M*Un t mmm p*###, nouu a* 100 n 




• AWE J : TftUCS ETASTUCES (MICKO APPUCA WN) 

Une traduction de I'edition ollemande, publie* par DATA 
BECKER. On peut la recommander 6 lout utilisateur 
d'Applo.., debutant. 

On y apprendra en effet, en 300 pages, tout ce qg il faut savolr 
pour tirer le mellleur part) possible d'un Apple Ho ou lie : ele- 
ments (andamentaux du Basic, pertphftriques, occes memolre 
et langoge machine (rudiments), programmes graphiques, 
amelioration des structures d'un programme, etc, 

Le plan de ce recuetl est judlcloux et le resultat interessant. Un 
regret : les poges sortent dlroctement d'un traitemenl de 
texte,.. sans aucune recherche typographique. C'est dommoge. 
mais cette lacune n'entame en rien le serieux de I'ouvrage. 

(Mlcrp AppUeMtIon t MO pjtfftf, moUiM tl# ISO ri 



IRMPUN MICRO 



LANGACE MACHINE 



DOS 



PtoDOS 



VISUMEM 




INITIATION 



Vous desirez 
visuoliser. une 
a une, les n 
lignes d'une 
routine en 
langage machine ? 

C'esl tout simple ; 
il suffit d'utiliser 
VISUMEM 

Ce programme demo 
va non seulement 
installer VISUMEM 
6 partir de 
I'adresse 5300. 
mais vous montrer 
comment cela 

(onctionne. 

Si vous desirez 
conserver VISUMEM 
sous forme de 
fichierB. 
lancez la DEMO 
par RUN, choisissez 
( option 3 (FIN), 
puis tapez : 
BSAVE VISUMEM, 
A768. L12B 



lie 

128 



139 

149 
150 
160 



179 
180 

190 
200 

210 

220 
230 



DEMO 



TEXT 1 PRINT CHRS (21>: HOME 
FOR I = 768 TO 895: READ R: POKE I.R: NEXT 
DATA 32. 88. 252. 160,23. 185. 104 .3. 153.212 .7. 136.288.24 
7. 169. 23. 133. 37. 32. 34. 252. 169. 29. 133. 36. 32. 228. 2S1. 3 
2.111.253.224.0.240.69.32.199.255.32.167.255.166.62. 
165.63.134.58.133.59.165.59 

DATA 72. 165. SB. 72. 160. 0.177. 58. 72. 169. 1.32. 99, 254. 10 
4.201.96.208.10.169.48.141 .217.7.169.54.141 .216.7.16 
9.34.133,36.104.170.104.32.36.237.172.0.192.16.251.1 
92.155.140.16.192.240.154.208 

DATA 201.96.193.196.210.197.211,211.197.168.8.5.24.1 
.160.196.197.160.196.197.208.193.210.212.186 
INVERSE :T» = :•: PRINT TS: PRINT ■ 

V I S U N E H "I PRINT T»: NORMAL 
PRINT : PRINT ML SUFFIT DE TAPER CALL 748 POUR ACCE 
DERA LA ROUTINE VISUMEM. " : PRINT : PRINT 'ENSUITE. A 
PPUYER SUR UNE TOUCHE POUR VI-SUALISEP CHAOUE LICNE. 
': PRINT : PRINT "ESCAPE POUR CHANGER D'ADRESSE, ET 
RETURNPOUR TERMINER. " 

PRINT : PRINT 'ACCES DIRECT PAP L' AMPERSAND (&-RETUR 
N) A CONDITION DE TAPER CES TROIS POKES:': PRINT I P 
RINT " - POKE 1813.76:P0KE 1014.8:PDKE1015.3' 
PRINT : PRINT "LE PROGRAMME VOUS DEM AN DERA L'ADRESSE 

DEDEPART (HEXA). DESASSEMBLEPA LA PREMIEREINSTRUCTI 
ON ET AFFICHEPA SON ADR ESSE DE-CIMALE." 
PRINT : PRINT " ENPONCEZ UNE TOUCHE S.V.P. CALL - 

198: GET R»: PRINT : CALL 768 
HOME : VTAB 22: PRINT "<I> ENCORE <2> MENU DISOUETTE 

<3> FIN -:i CALL - 198: GET RS: PRINT 
HOME : IPW-'l' THEN 150 
IF RS = '2' THEN PRINT CHR» (4)'RUN MENU" 
IF R» < > "3' THEN 209 



XPLICATION t>l 



0300- 


20 


be 


PC 


JSR 


9FC58 


C'esl le HOME du Basic 


0303- 


AO 


17 




LDY 


£»17 


V = $17 (33) : note d'octels a oltichm 


0305- 


B9 


68 


03 


LDA 


$0 368. Y 


Adresse de lecture du texte + Y 


0308- 


99 


D4 


07 


STA 


•07D4.Y 


Adresse-ecran d ecrlture + Y (VTAB24J 


030B- 


68 






DEY 




Y = Y — 1 


030C- 


DO 


F7 




BNE 


•0305 


SiY <> 0GOIO$305 


030E 


A9 


17 




LDA 


£•17 


A = J17(W.,.poorVTAB24) 
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h Jul 


B 1 


- r 






*j 1 A 


il O r r. 


0312- 






FC 


JSP 


•FC2Z 




AO 


I U 






r nil 
LDA 


£ * i n 

t»l U 


U 31 r* 










bin 










FB 


T<3D 
J*>K 




UOIV* 


Tfl 




FD 




»r i/or 


031 F- 




wv 






ppy 




MOt - 


ru 










*uooo 




zo 


C7 


r 


r 




* i a ^_ ■ 


0326- 


20 


A7 


FF 


JSP 


9FFA? 




A6 


3E 






r nv 






A5 


3F 






f HA 






B6 


3A 






CTV 






B5 


3B 






CTA 

31n 






A5 3B 






LDA 




U3J3- 


48 








PHA 






AS 


3A 






f rife 

LDA 


»3A 












rnA 




033/- 


AD 


ft n 

00 






LDY 


xvOO 




Bi 


3A 






LDA 


<S3A> .Y 




48 








nu ■ 
PHA 




U33L- 


A9 


01 






t m 
LDA 




U3jt- 


1A 


63 


FE 


ion 
JSK 


SFE63 


U341- 










PLA 






r° 


60 






CMP 


f *60 


0344- 


DO 


OA 






dNE 


*0350 


WW* 


AO 


30 






LUA 




uj^o- 


8D 


D9 


07 


CTA 

bi A 


rUV 


Uo4tJ- 


A° 








LDA 


£936 


U34U- 


M 
□u 


M 


07 


bTA 


»D fDB 


U JDU 


AO 


22 






r ha 






85 


24 






STA 


•24 




6B 








or a 
rLA 






AA 








1 AX 




nice 


68 








PLA 




Odor- 


20 


24 


ED 


JSR 


SLD24 


UobA- 


AC 


00 


CO 


LDY 


4*i C\ f\ F\ 

scooo 




10 


FB 








UJjfi 


OSSE- 


CO 


*B 






CPY 




IN - 


ec 


10 


CO 


STY 


*C0I0 


0364- 


F0 


*>A 






BEO 


•0300 


0366- 


DO 


CQ 






BNE 


to 331 


0369- 


60 








RTS 




U30V- 


CI 


C4 






Q J f 4- 


Aj * trt 
] AU 


036B- 


02 








0376- 


C4 C5 


Q36C- 


CS 


03 






0378- 


AO C4 


036E- 


D3 








037A- 


C5 DO 


036P- 


CS 


AO 






037C- 


CI D2 


0371- 


08 








037E- 


EM 


0372- 


05 


!8 






037F- 


M 




Cv fpoiiTion verncoledu corwur) - J17 
VTAB vo deplocor l« cur»»ur on CV 
A ■ $10(29) 

CH (position hori/onlol* do curtQur) = $10 
BELL? pour I bip 

Une oulre enrr^« de on L IN {nbre de caroc. dans X) 

X (longueur du nombre sai*0 est-ll egol 60? 

Si oui GOTO RTS :Bomc; 

LZMODE |0 mod©) 

GETNUM (r^cup^r c nombre hexo) 

Recuperation dot valours on $3E*3F 
et dcritur© en J3A-3B 



Accumuloteur charge ovec S3B 
Valeur do A empilee 
A chorgo ovoc $3A 
Valour ogaiomonr empildo 
Y = pour odretsoge index^ 
Lecture 6 1'odresse $3 A-38 + Y 
Valour ompilee 
A = 1 

LIST2 disassemble A instruclvon (1) 
A recupere Je sommet de la pile 
Esf-ce $60 (RTS) ? 
Non GOTO350 

Out : alors A ■ $30 (0 mode inverse)*-. 

alfichi a lo place du normal 

A = $36(6mado»nvor**).<. 

oitkhe 6 lo place du 6 normal 

A = $22 (34) 

CH = $22 

McupiroNon du sommot do la pile 
A pasie dans X 
Oernifrre recuperation 

UNPTR afliche la valour decimolo de Todresse 
KBD (caractere troppe dans Y) 
Pas do caroctdro, on attend (GOTO 35A) 
Est^ce S9fi (ESCAPE) ? 

Ecriture KBOSTRB (pour lire une outre touche) 
Si ESCAPE GOTO S300 
Oubien GOTO $331 pour autre salsie 
FIN OE PROGRAMME 



Do $369 6 37F T ie*le mlvani 
ADRESSE |!I£fjl DE D6PART 




EN UTILISATION f JOKMAi t % on % programme DEMO. 
Vous pouvez oust i utilizer V AMPERSAND (voir DEMO). 



toper BLOAD VISUMEM. puis CALL 768. 



TKMUIN MICRO 



LANGAGE MACHINF 



DOS 



ProDOS 



MIXAGE 



PAGE 1 PLUS PAGE 2 




INITIATION 



Comment meler vos pages grjphiques t 



U 



NE technique simple permet de mixer les deux pages graphiques en un temps record... 
grace a I'exlraordinaire rapidite du langage machine et a I'operation logique ORA. 



POURQUOI ORA PLUTOT QUE AND ou EOR ? 

Imoginons que le premier oclel de la Page 1 soil (en blnalre) 0000001 1 el que le premier octet 
de la Page 2 soil 00001001. II s'agh d'obtenir, en mixant le* deux donnees. 0000101 1. Laissons 
de c&te les quatre premiers zeros (inutiles dons eel exemple). el regardons le resultat obtenu 6 
partir des operorions 
logiques AND. EOR el 
ORA. 



On constate immedlo- 
tement que soul ORA 
lournit le resultat — 
ou le mixoge ! — 
escompte... d'ou le 
court programme que 
void... 




1 








1 







1 








1 









1 








1 



/VPs] I J 



ORA 



1 



10 10 



10 11 



0380- 


AO 


29 


LDA 


i*?.e 


8382- 


85 


07 


STA 


M7 


8384- 


AO 


48 


LDA 


£940 


8306- 


85 


DO 


STA 


909 


0308- 


A9 


80 


LDA 


£980 


030A- 


85 


86 


STA 


906 


B38C- 


B5 


08 


STA 


908 


038E- 


A2 


20 


LDX 


£920 


8310- 


Af» 


00 


— LDY 


£908 


8312- 


Bl 


06 




"LDA 


(986). v 


B3J4- 


11 


08 




ORA 


(908). V 


0316- 


«1 


08 




STA 


(908). Y 


8318- 


ce 






I NY 




0319- 


M 


F7 




— BNE 


90312 


031B- 


E6 




INC 


987 


0310- 


E6 


OO 


INC 


909 


831F- 


CA 




DEX 




8320- 


D0 


EE 


BNE 


90310 


8322- 


6fl 




PT3 




3? 











S6 ©r J7 contlennent 00 30 pour lire la Poge 1 
(avec LDA iW6! v: 

S8 et $9 contiennenr 00 40 adrosie de la Pag© 2 



3 Nombro do pages 



CoM* boutle permet de lire chaque otiet de la Pag* 1 , de le 
mixer avec l acter correspondent de la Poge 2. puis d'ecrire 
le m-mi'mi en Poge 2 (en ecroiani I oncien). 



] 



Incremeniation de la parti© haul* des odresses 



X = X— 1 

SI X d.fforent GOTO S310 
FIN DC PROGRAMME 
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UTILISATION 

MIXAGE (LM) 
peul e're employe 
en mode direct... 
ou dans un 
programme 
en Basic. 

Dansuncas comme 
dans I' autre, 
le processus 
sera le meme : 

• BLOAD MIXAGE 

• BLOAD IMAGE}, 
AS2000 

• BLOAD IMAGE2. 
AS4000 

• CALL 768 

• BSAVE IMAGE3, 
AU000. LS2000 



TABLE DE VERITE 

Voici la table de 
v4rit6 de ORA (si ou 
mains 1 des 2 bits est 
d 1 le r6sulfot est 1). 



M1XAGE-DEM0 

Cette courle demonstration vous permettra en outre d'installer 
MIXAGE 6 partir de ladresse S300. Pour sauver cotte routine LM, 
choisis&ez Toptlon (B)ASIC du menu final puis tapox un simple 
BSAVE MIXAGE* A$300. LS23 



ou 


1 




1 








1 


1 


1 


1 



tee 

110 
120 



138 
148 
158 
160 
176 
180 



190 
200 
210 
220 
230 
248 



258 
260 
278 
280 



290 
388 
310 

328 
338 

348 



DS ° CHR* (13) ♦ CHR* (4):G* = CHRt f 7> : GOSUB 330 = 
ONEPR GOTO 118 

HGR : HGR2 I HC0L0R- 3: TEXT I PRINT CHR* (21): HOME 
: INVERSE I HTAB 10: VTAB B: PRINT "1 MIXAGE GRAPH I 
QUE :"( NORMAL I HTAB Ll VTAB 12: PRINT ■ Nous 
allons voir deux Images.': PRINT 

PRINT " I'une en page 1. I 'autre en page 2.": PRIN 
T : PRINT ' et enfin. leur mixage en page 2.': VT 
AB 20: PRINT "Appuyez sur <ESPACE> apres chaque arre 
f: PRINT : HTAB 18: VTAB 4: PRINT '< >■ I GOSUB 318 

REM ••••«*•«»•■»»■■■***« 

REM • DESSIN PAGE 1 • 
REM «•»»•*»»•*«•***•»•** 

• 

HGR :MA = 23:DI = 6iIN * 58:AA « 98:BB = 90:ST » .5: 
FOR 1=1 TO MA STEP ST:A = << SIN (!) * 18) ♦ I * 

I / DI) ♦ IN » 48:B = (( COS (I) • 39)+ 1*1/ DI ) 
+ IN: HP LOT AA.BB TO A,B:AA = A:BB = B: NEXT 

REM 

REM * DESSIN PAGE 2 § 
REM »■•••*#»*»»*•*••***• 

GOSUB 318: HGR2 :A = 10:B = 270:C - 155: HPLOT A, A T 
B.A: HPLOT B.A TO B.Ci HPLOT B.C TO A.C: HPLOT A.C 
TO A. A: GOSUB 310 

CALL 768: REM VERS ROUTINE LM 

GOSUB 310: TEXT : HOME I HTAB 3: VTAB 23: PRINT '<E> 
NCORE <B>ASIC <M>ENU DISQUETTE "|l POKE - 16368.0: G 
ET X»: IF X» = "M' OR X* = "m" THEN PRINT DVPUN MEN 
U* 

IF X* » "E" OR X* - "e" THEN 110 
IF Xs = "B" OR X» = "b" THEN HOME : END 
POKE - 16368.0: VTAB 4: HTAB 19: GET X»: PRINT CHR» 
(7>: RETURN 

FOR ADR - 768 TO 802: READ CODE: POKE ADR . CODE : NEXT 
: RETURN 

DATA 169.32,133.7,169.64.133.9,169.0,133,6.133.8.162 
.32. 160,0.177.6.17.8. 145. B. 288. 288. 247. 238, 7. 238. 9. 2 

82.288.238,96 . 



TREMPUN MICRO 



UTIUT.AIRE 



Pfopos | Guy DESENFANT 

CATALOGUE 



NE vous privez suriout pas du Super. catalogue que vous propose Guy 
DESENFANT, mais attention ! il ne fonctionne que sous ProDOS, avec 
le 65C02 et une carte 80 colonnes ! Pour le reste, nous vous en laissons la 
surprise... et sur deux colonnes ! 



IBB TEXT i PRINT CHR* (21): HOME : P 
PINT CHR* <4>'PRf3": PRINT CHR* 
(1): GOSUB 925: ON ERR GOTO 878 

105 i 

110 REM •■•■.v...................... 

115 REM • ACTIVER LES CARAC SOUR IS • 
120 REM H WWIIl l WIHI I Inmim iH 
125 : 

130 I* - CHR* (I5):N* = CHR* (14):H* 

= CHR* (27>iXM* = CHR* (24) 
135 PRINT Ml PRINT MS 
110 i 

145 REM W HW *0t» MW WH r W MH I M W* W 
150 REM • TRAITS HORIZONTAL ■ 
155 REM • ••#•»«•»•••••■■«•■•««••«•• 
160 l 

165 TP* - ■■"i FOR I = 1 TO I0:TR» = 

TR* * 'LLLLLLLL': NEXT :TR* = LE 

FT* (TR*.78> 
170 RT» = FOR I - 1 TO 10:RT* - 

RT* + "SSSSSSSS"; NEXT :RT* ■ LE 

FT* (RT».?8) 
175 I 

180 REM ■ ■» ■■ * **■ ■ ■ ■■■■■■ ■ ■■■■ — ■* ■ 

IBS REM ■ BOUCLE TRACE TRAITS VERT • 
190 REM 
195 i 

200 FOR I ■ 1 TO 20: VTAB I: HTAB It 
PRINT "2": VTAB II HTAB 80: PRI 
NT NEXT I 

2B5 i 

210 REM .-<.— .«...-.•.».,......... 

215 REM ■ BCL. TRACE TRAITS HORIZON ■ 
220 REM »»■«■««*■«*. »*<#«*■•»<»■. 
225 : 



230 VTAB |1 HTAB 2: PRINT TR»: VTAB 
3: HTAB 2: PRINT RT»: VTAB 5: HT 
AB 2: PRINT RT»: VTAB 7: HTAB 2: 
PRINT RT* 
235 VTAB 6: HTAB 18: PRINT 'Z": VTAB 
6i HTAB 26: PRINT "Z": VTAB 6: 
HTAB 40: PRINT 'I' I VTAB 6: HTAB 
57: PRINT *Z": VTAB 6: HTAB 65: 
PRINT "Z" 

240 t 

245 REM MiM IW i *0 W * * W * a W4WWWMMWMI 
250 REM • BAPPE VERTICALE CENTRALS » 
2S5 REM ■»•*•••»••••••#■»#•••»«•#*•« 

268 : 

265 FOR J = 8 TO 20: VTAB J: HTAB 40 
i PRINT ■Z": NEXT : VTAB 21 I HTA 
B 2: PRINT TR* 

270 t 

275 REM It »0#WHHHHHMHIMIIO» 

280 REM * DESACTIVE CARACT . SOURIS » 
285 REM •.■-«■-■.»•-.-.-..-....-.... 

290 i 

29S PRINT N»: PRINT XM» 
388 : 

305 REM ••«in»»««#Oinmi«t*»ini»ti»K» 
310 REM • CURSEUP INVISIBLE • 
315 REM •••••••••••••••■■•••••*»«»»» 

320 i 

325 POKE 2043.168 

338 A* = "CATALOGUE* :A* LEN 
(A*) 

335 VTAB 2: POKE 1483. INT (80 - A> 

/ 2: PRINT A* 
340 VTAB 4: HTAB 3: PRINT "Nora du vo 
lufltt: •: VTAB 4: HTAB 60: PRINT 



J4 
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■Blocs 1 Ibreai ■ 




*u PREFIX <3> Oultt«r': CALL - 1 


345 B» = 'FICHIER":C» = 'TYPE':D» - 




OR* r,FT P«- TP A^C (Pf) < 49 OR 




■DATE" 








VlAo bi HTAo d: PRINT D»: VTAB b 




TP fFTAfi = 1 AWH M ± THFN 




: HTAB 20: PRINT C»: VTAB 6: HTA 




VTAB 22: IfTAB 2* PRINT SPCf 70): 




B 32: PRINT D»: VTAB 6: HTAB 42t 








PRINT B»: VTAB 6? HTAB bv: PRIN 


555 


IF (FLAG ■ 1 AND R9 * *3*> THEN 




T CS: VTAB 6: HTAB 71: PPINT B» 




nunc • Lnu 


ICC 


VTAB Z3 




IP f Pf AH x * AND Pft = * y * THFN 




DIB FICHIEKS<&1> 




VTAB ??: HTAB ?• PPINT SPC( 70); 


365 






oLTi U 1 V 


37B 


REM 


S6S 


IP FLAR < > 1 THEN VTAB 2?: HTAB 


37S 


REM ■ ON PPEND PREPIX COURANT ■ 




? # PR TNT *<1> Nfftjv»AU PREFIX <2 


380 






> fkilttftr"* CAT! - 19flt fiFT PS * 


39b 






TP AST (PS) < 49 OP ASC" (Pf) > 5 


3VB 


PRINT CHW (-1) PREFIX": INPUT Pr 








X9 




TP (FT AH < > 1 AND PS s *1 B ) THF 


395 


• 




N VTAR ?9* HTAR ?• PRINT SPC< 40 
n vino ££* ninp mini or^\ "iw 


400 






/ I OU 1 u O 1 V 


405 


REM • 0UVERTURE DU TIC CATALOG • 


□ 


PPINT 


410 


REM •••*««»»»»»»»««»«»«••«»«■■** 


l 


IP fPTAfi < > 1 AHn R4 = THF 


415 






m UfiMP * PNH 


420 


PRINT CHR» ^4)'0PEN•PFX»•.TDIR , 


CDC 

DOO 


■ 

4 


425 PRINT CHP* (4>"READ"PFX* 


C.OL* 


f\ CJl ■ W ^ W » ^ H " W w w W W W WW ^ m w* m m w% WW»w w 


436 


INPUT VOLUME* 


COC 

OtD 


PPM h fHHTX TI'UN NfVJV PRFFIX « 


435 


INPUT TITRE* 






440 


INPUT BLANC* 


DVD 




445 


VTAB 23:1 - I 


610 


VTAB ?2r HTAB 2: INPUT "Nouveau 


450 


VTAB 23: INPUT FICHIER*U>: IF P 








ICHIER*U> ■ " THEN 465 


615 




455 


HCfllBBKI) • LEPT* (FICHIER*(I> 


6?0 






,28> ♦ ■ " + MID* (FICHIER* 




PPM i PGUP LES FTOURDIS 1 ■ 




CI) .31 ,9) 






460 


VTAB 23! IF FICHIER*(I) < > " T 


D J > 






HEN I - I Mi GOTO 450 




TP T PPT* fPFVS 13 < > "Z" THFN P 
IF LCF 1 » VrrAff 1 ^ \ ^ / inui r 


465 


VTAB 23 i IF I > 27 THEN FLAG = 1 




F/\* ■ r t rrA* 


4?0 


INPUT BLOC* 


DID 


PPT NT rnjp* f 4 > * pdft ' V" PFYft 


475 


BLOC* = MID* (BLOC*. 15.3) 


tea 


oujUD DOO 


480 


PRINT CHR* (4)-CL0SE- 


£CC 




485 


: 


lpv*j 




490 REM ■«»»•■*•*<»•*••»•»••»*«««•«-• 




n ■ ^« h -^v m^m mm mmr m m mm wm mm mm mmu mm m m mm mm - ^mr mm ^mr t— mmm m m mmmr ^m- mm— 


495 


REM • VERS SP. AFF1CHAGE • 


670 


REN « ON EFFACE LA PAGE ft 


500 




675 




505 




CfiQ 
DOC 


■ 
• 


510 


GOSUB 740 




fvnp T = fl TO 7W 


515 


VTAB 23 


690 


VTAB J: HTAB 2i PRINT SPCt 37)i 


520 






VTAR !• HTAR 41* PPINT ^Pr( 171 


525 




toe 
DVD 


UfU 


538 


REM • MENU ■ 


700 


VTAB 4: HTAB 19: PRINT SPCt 37): 


535 






VTAB 4: HTAB 75; PRINT ■ * 


540 




70S 


VTAB 22 


545 


IF FLAG - 1 THEN VTAB 22: HTAB 2 


710 


RETURN 




> PRINT "<1> Page n' 1 <2> Nouve 


716 





TRCMPLIN MICRO 



35 



CATALOGUE (suite et fin) 



720 
725 
738 
735 
740 
745 

758 

755 

760 

765 

770 
775 



780 
785 
790 

795 
800 
B05 
810 
815 
828 
825 

838 



REM 
REM 
REM 

J - 
VTAB 
VTAB 
IF 

3: 
IF 



If • • K It * « • ft ft* » II ft »*• ft * #M # It • ft * 

• AFFICHAGE PREMIERE PAGE • 
..i ............... ■ 



4: HTAB 19: PRINT VOLUME*: 
4i HTAB 75: PRINT BLOC* 
J < 14 THEN VTAB J * 7: HTAB 
PRINT FICHIEM(J) 
J > 13 AND J < 27 THEN VTAB J 
6: HTAB 42: PRINT FICH1ER»<J> 
J > 26 AND FLAG THEN GOSUB 77 
GOTO 515 

J ■ I AND FLAG = THEN RETUR 



IF 
5: 
IF 
N 

J = J * ll GOTO 750 
CALL - 198: VTAB 23: HTAB ll PRI 
NT "Pour la 2' page appuyez aur 
une touche.': POKE 2843.168: GET 

RS: IF R» = " THEN 775 
VTAB 23: CALL - 864 
GOSUB 685 

VTAB 4:, HTAB 19: PRINT PFX»: VTA 
B 4: HTAB 75: PRINT BLOCS 

REM ••••■■••••♦•••••••••••K »IMM»»**"» 

REM • AFFICHAGE DEUX 1 EME PAGE • 
REM, ••••••■■••■••••••»*iHttn»««« 

J ■ 27 

IF J < 48 THEN VTAB J - 19: HTAB 

3: PRINT FICHIER*(J> 
IF J > 39 THEN VTAB J - 32: HTAB 

42: PRINT FICHIER»(J) 



835 
848 
845 



855 
868 
865 



875 



IF J = I THEN RETURN 
J = J + 1 : GOTO 825 

REM - - Wft#**ftftft»ft»ftii»""ftft»ftftft 

REM • TRAITEMEHT DES EPPEUR5 • 
REM ■•««•*■••«*•••*••*"•••■••••■■ 



CALL 768 

IF PEEK (222) = 255 THEN RUN 
IF PEEK (222) - 6 OR PEEK (222) 
» 7 THEN VTAB 22: CALL - 864: CA 
LL - 198: VTAB 22: HTAB 1: PRINT 
"Fichier non trouve "i FOP A = 
1 TO 3800: NEXT i VTAB 22: CALL 
- 864: GOTO 610 

IF PEEK (222) » 8 THEN VTAB 22: 
CALL - 864: CALL - 198: VTAB 23: 
HTAB 1: PRINT 'Erreur d' Entree 
/Sortie': FOR A - 1 TO 3080: NEX 
T : VTAB 22: CALL - 864: GOTO 61 



890 IF PEEK (222) = 16 THEN VTAB 22: 
CALL - 864: CALL - 198: VTAB 22 
i HTAB 1: PRINT "Erreur de synta 
xe": FOR A = 1 TO 3080: NEXT : V 
TAB 22: CALL - 864: GOTO 610 

895 VTAB 22: CALL - 864: RESUME 



885 



985 REM 

910 REM • TRAITEMENT ERPEURS LM ft 
915 REM 
920 : 

925 POKE 216.8: POKE 768.184: POKE 7 
69.168: POKE 770.104: POKE 771.1 
66: POKE 772.223: POKE 773.154: 
POKE 774.72: POKE 775.152: POKE 
776.72: POKE 777.96: RETURN - 




ouez-vous 



avec les mots ? 

QUI nous adressera le meilleur pro- 
gramme de JEU (sur Apple) n'utilisant 
que des mots (mots meles exclus) ? 

VOUS,.. pp'^' rp ? 
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APPLICATION 



DOS 



ProDOS 



NESTOR 




i\ ORGANISATION 



D'UN TOURNOI 



PROBLEME: 

Tirage du calendrier des rencontres, jouees sur une ou plusieurs journees. suivant le 
nombre d'equipes engagees. Chaque equipe doit evidemment jouer une fois contre 
chacune des autre*. Mais il y a une contrainte : aucune des equipes ne dolt etre ame- 
nee a jouer deux matchs consecutifs (pour lui permettre de recuperer). 



MA SOLUTION : 

L'aleatoire plus la logique ! Vous noterez au passage que 
le nombre de rencontres est fourni par la formule suivante 
(ou N = nombre de participants) : NR = (N — 1 J * N/2. 
Pour le reste, suivez le deroulement du programme... et 
vous comprendrez. Il est sans doute possible de faire 
mieux. mais 6 quel prix ? Telle quelle se presente, cette 
routine pourra probablement aider certains organisateurs 
a mettre au point leur calendrier. 




100 : Je n'ai prevu que 
20 equipes, mais il est 
possible d uller plus loin 
an modifiant DIM (nom- 
bre de rencontres), puis 
lo llgne 180 (nombre 
d'equipes). 



190 : Si vous preterez la 
formule indiquee plus 
haul, ollei-y gaiemenl : 
B = (N — 1) * N/2 
et supprimez la ligne 
MO 1 



110 
120 
13fl 
146 
150 
160 

170 

180 
190 
200 
210 

220 



TEXT : PRINT CHR» (21)t HOME t DIM A%( 190 . 1 ) .B\( 191 , 
l)iD« = CHR» (4>:T» = FOR I = 1 TO 20:T* = T» + 

■ ■ rV» ■ V» ♦ " ' : NEXT 

* 

REM ■ ••«••••#•••»••»•*■ 

REM - NOMBRE D'EQUIPES • 

REM MttHHHHHHHHMMHI 

ft 

PRINT WPM3'i PRINT I HOME : PRINT 'ORGANISATION D 
'UN TOURNOI (5 A 20 EQUIPES)' : PRINT T« 
E ■ 0: VTAB 4t CALL - 958: CALL - 198: INPUT "NOMBRE 
D'EQUIPES ':N»: IF N» - ■■ THEN 600 
N = VAL (N»): IF N < 5 OR N > 20 THEN 170 
B • N - 1 

E ■ E » B:B ■ B - ll 1FB<>0 THEN 200 

VTAB Li POKE 1403.53: INVERSE : PRINT E" RENCONTRES 

A ORGANISER: 1 : NORMAL 



IREMPIIN MICRO 



3/ 




230 
240 
258 
260 
2?0 
280 

290 
300 
318 
32C 
330 
340 
350 
360 
370 

?HQ 



410 
420 
430 

440 



450 

460 
470 



580 
510 
520 

530 
540 
550 
560 
570 

580 
598 



610 



REM ..•••«•«». v... ...... 

REM • REPARTITION ■ 
REM -....-.-.....«...... 

POKE 34. 3t PRINT I HOME 

VTAB 4: INPUT 'NOMBRE MAXIMUM DE RENCONTRES PAR JOUR 

i "jNS: IF N» = " THEN 280 

NM = VAL (N»>: IF NM > B THEN 260 

REM ##»»M4* 

REM « TPMTEHENT • 

REM 

'$ 

HOME tM ■ 0:Y » M:R - M:M1 - MiM2 » M 
FOR I ■ 1 TO N - i 

IF I > 1 THEN PRINT LEFT* (V».U - 1) * 4); 
FOR J * I * 1 TO N 

PRINT CHR* (64 + !}•-• CHR» (64 * J)" 
M = M + !:A*(M.0> *> I:A*(M.1> - J 
NEXT i PRINT : NEXT 

V « PEEK (37) ♦ 2 

VTAB 20: HTAB 1: INVERSE : PRINT "MELANGE ALEATOIRE 
EN COURS": NORMAL : CALL - 198 

FOR I - M TO 1 STEP - IiA = INT < RND (1> « I + I):B 
%<I,0> - A%(A.0):B%(I.l) = A*(A,1):A*(A.0) ■ Ate 1 .8 j 
:A*(A.I> = A%< I . I > i NEXT 

CALL - 198: VTAB 20: PRINT "UN PEU DE PATIENCE S'lL 
VOUS PLAIT! " 

X = 0: IF F THEN GOSU3 700 
F » 1 

X « X ■» 1: IF X > M THEN 460 

IF Ml - B*(X.0> OR M2 = B*<X.1> OP B%(X.0> - OR B\ 
(X.l) - THEN 480 

IF Ml » BVX.l) OR M2 = B%CX.I> THEN 488 

Y » V » 1 :F = 

A%(Y.0> = B%<X.0>:A*Y.1> - B%(X. 1 > : BVX .0) = 0:B%(X 
.1) - 

Ml - A*(Y.0)iM2 = A%(Y.P 
IF Y < M THEN 488 

PRINT : IF V > 15 THEN HOME : GOTO 570 
VTAB V: CALL - 958 

FOR I * 1 TO Y: PRINT CHR» (64 * M< I, •)>'-' CHR* (6 
4 * A%U.1>>' 'i 

R - R + 1: IF R = NM THEN P = 0: PRINT 
NEXT : PRINT 

HTAB 44: VTAB 23t PRINT '<E>NCORE <B>ASIC <M>ENU DIS 
QUETTE "i: POKE - 16368.0: GET X«i IF X« - *" THEN 4 
70 

PRINT : IF X0 ~ "M" OR X« = "m" THEN PRINT D«'RUN ME 
NU" 




270 : POKE 34.3 protege 
les lignes de titre 

290 : L'lF peut c-tre sup. 
prime si on te desire. 



350 : Les variables sont 
mises (ou remises) a 
zero. 



420 : Sur quelle ligne esi 
le curseur ? V est utilise 
plus loin (ligne 560). 



440 : Melange alealoire 
foul 6 fait classique. 



460-4I0 : Essayez de 
comprendre comment se 
doroule Ic programme. 
Quond on o epuise Iq 
liste des renconlres non 
piogrammees... sans en 
avoir Irouvo une seule 
repondont aux condi- 
tions dot tlgnes 490 et 
500. F est egol 6 1... at 
on soute au sous- 
programme "DECA- 
LAGE". 




30 



GUV-HACHETTf 



7M : Sans ce sous- 
programme. II y a "plan- 
tage" pur et simple. 



710 : On autorise six 
essois... mats si la chose 
te produil, r«lancei le 
sysleme > 



620 IF *• - 'B' 
638 IF X* ■ •# 
640 GOTO 600 
650 t 

660 REM •«•#«»< 



OR X« - 
OR X» = 



■b" 
■e' 



THEN TEXT 
THEN 170 



HOME i END 



SP. DECALAGE 



670 REN • 
680 REM «....«..».«»..«.*«-. 
690 : 

700 IP Ml < > AVl.fl) AND M2 < > A*( 1 .1) AND Ml < > A3t< 1 
,1) AND M2 < > A%<1.0) THEN HI = A%<l.ft):H2 = A%(1.1 
): FOR I = 1 TO Y - KM(I.t) = A*U * 1.0>:A*(I.l) 

= AVI ♦ 1.1): NEXT :A%(Y.0) - HllMtY.l) - M2: RETT! 

RN 

710 POP :P = P 4 p: IF P < 6 THEN 350 . 



EXEMPLES 



Chaque equipe beneficie, 
entre chaque rencontre, 
d'un temps de repos qui est 
egal ou plus grand que ta 
dureed'un match. 



NOMBRE D'EOUIPES 7 

21 RENCONTRES A ORGANISER' 

NOMBRE MAXIMUM DE PENCONTRES PAR JOUR: || 
A-B A-C A-D A-E A-F A-G 
B-C B-D B-E B-F B-G 
C-D C-E C-F C-G 
D-E D-F D-G 
E-F 



MELANGE 
UN PEU 



E-G 
F-G 

ALEATOIRE EN COURS 
DE PATIENCE S'U VOUS PLAIT! 



B-G A-C D-E A-F B-C A-E C-F D-G A-B E-F C-D 
A-G B-D C-E B-F C-G D-F B-E F-G A-D E-G 



NOMBRE D'EQUIPES 10 

45 RENCONTRES A ORGANISER: 



NOMBRE MAXIMUM DE PENCONTRES PAP JOUR: IB 



A-B A-C A-D 


A-E 


A-F 


A-G 


A-H 


A- 1 


A-J 


B-C B-D 


B-E 


B-P 


B-G 


B~H 


B-I 


B-J 


C-D 


C-E 


C-F 


C-G 


C-H 


C-I 


C-J 




D-E 


D-F 


D-G 


D-H 


D-I 


D-J 






E-F 


E-G 


E-H 


E-I 


E-J 








F-G 


F-H 

G-H 


F-I 
G-I 
H-I 


F-J 
G-J 
H-J 
I-J 




MELANGE ALEATOIRE EN COURS 

UN PEU DE PATIENCE S'lL VOUS PLAIT! 



D-J A-F D-E B-H E-F B-J D-G E-J G-H C-F H-J B-D E-I D-H F-I 
A-D F-H B-C A-J F-G E-H I-J C-H B-I C-G A-H G-I A-E H-I F-J 
D-I C-J A-G C-E A-B E-G B-F C-D G-J A-C B-E D-F A-I B-G C-I 




TREMPUN MICRO 



Votre bibliotheque 
INFORMATIQUE 



par Clement RENARD 



SANS FIN 



• i'ATO SAWS WN (Cedlc-Naihon) 

Chorles Rubtn, I'auieur. eprouve visiblemenl une grande 
sympofhie pour ( Apple ft Nous oussl. Soyons clalrs : 
sen livre s'odresse indiscutablement aux incondltionnelt 
dt r Apple //, et plus particulierement 6 ceux desirant 
omdliorftr les performances de leur machine. 
L Apple '/ fetero~MI ses di< onnies d existence ? On 
peut roisonnobtement lg pernor, font (o dato est proche : 
avril 1987. Combien d'ordinateur* personnels sont ou 
seront un |our dans ce cos ? Re pondre 6 la question, e'est 
forcement reconnoitre 6 r Apple II une longevity excep- 
tionnelle... mois oussi comprendre ia fidAlittdes Apple- 
monloques" pour leur micro* 

Mais revenons 6 J APPLE SANS FIN, utile synihfrse des 
centaines d'efudes publics sur les divers materiel* lone- 
tionnont sur Apple ti 

Cel ouvrage est to traduction de The Endless Apple, 
poru en 19B4. en langue onglaise. mots I'Adltion Iron- 
(aise four nir un repertoire actualist des importateurs de 
produils dtsponibtes sur le marche fran(ait. 
Le desir d amriliorcu les prestations dun ordmateur per* 
sonnel est g*n6ralement lie 6 la n^cessite de mettre ou 
poinl une application ipecifique. De ce point de vue, le 
docoupoge du livre de C. Rubin est excellent, puisqu'H 
tient prAdsement compte des applications el non des 
types do produits, 

Lo presence d un index en rend la consultation encore plus ogreable. Alors, je teroi mienne lo cone 
munique de presse : si vous voulei Alorgir votre horlion informatique, vous dAcouvrirei dans ce 
l' Apple peut vous mener I 




usion du com 
livre jusqu'ou 




LA FACE CACHES 
DU MQ5 





• LA FACE CACHBE DUM05 (Cedk-Nothan) 

Je soil que do nombreux lecteurs (je n'oublie pos les leclrlces,.* qu'elles 
se rossurent !) de TM. sont omenfe 6 utlllsef le M05. present dans la 
pluport des ecoles. Pour certains, tl s'ogit seulement de montrer h un 
enfant comment lancer et utillser un jeu. D'autres tentent (souvent ovec 
bonbeur) d adopter sur MOS des programmes mis ou point sur leur 
Apple,., ou vice versa. D'ou la presence, dans les cotonnes de TM. r de 
rubriques consacr6es 6 d F outres machines. 

Dans le cos present, lauteur. Jean-Baptiste Touchord.parait ou moins 
aussi curleux que les genies qui. depute neuf ans. onl porco. un b un, les 
petitt secrets du 6502.. . sauf qu'il s'ogit ici du 6809, 

II offirme que son livre est sons danger... et e'est vrai, mois je vous 
assure que so demarche est non seulement iniere&sonte, mois conseillde 
6 celles et d ceux — et, il en exisie beaucoup — qui d&lreni (aire de 
l'4tude de Tinformotlque un possionnant |eu de ddcouverte personnel!©. 
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OUY-HACHETTE 



UTILITAIRI 



DOS 



65C02 et IMAGEWRITER II 



HISTO.TEXT 

VOS CRAPHIQUES EN MODE "TEXT" 

I L est facile, avec le nouveou 65C02 — qui permet d'utiliser les caracteres 
"SOURIS"— de realiser des graphiques en mode TEXT. II est non moins 
facile dediter de tels graphiques sur la nouvelle imprimante IMAGEWRITER II 
Si vous en doutez, essayez le programme de Clement Renard ! 

QUESTION I : Qu'obtiendra-t-on ovec un Apple lie non transform^ ? 

R : Ne cherchei pos : un deran ossez curieux, sur lequel les caroctfcres correspondent oux Mouse 
characters opparoitront en mode inverse,,, et sous leur forme habituetle (les colonnes de grists 
seront des "WW", les colonnes noires des "NN'\ le filet du bas une suite de V, etc), 

QUESTION 2 : Poum>t«on nfianmoins £diter co graphlque sur une IMAGEWRITER II ? 
R : Bien sur, pulsque celle-cl possirde les caracteres SOURIS* 

QUESTION 3 : Et avec une DMP„, ouune IMAGEWRITER normals ? 

R : La, je vous attendais : e'est possible, mais en errant d'obord. a porttr du programme paru dans le 
n D 6 de T.M., des caracteres personnel isiSs. Ce n'esl pos difficile... et go marcho. Porution de noire 
solution dans deux mois (si vous Stes press©, odressez*moi une enveloppo fimbr6e 6 voire adrosse 
et je vous feral parvenir une photocopie du court programme 6 ecrire.... avec les fameux caracteres 
en DATA(s)). NESTOR. 




HISTO.TEXT (suite) 



l 

105 

ne 

115 
126 
125 
138 
135 

148 

145 
158 
155 
168 
165 
170 
175 
188 
185 
190 
195 
200 
205 
210 
215 

220 
225 
230 
235 
248 
245 

250 



260 

265 
270 

275 
280 

285 

290 
295 
380 



TEXT : PRINT CHR* (4>'PRi3": PRINT l HOME 
DIM mi2,l>.L*(24).V<12.1>: GOTO 158 



REM 



REM ■* CARAC HOUSE OP NOT HOUSE »» 
REM • ■ ■ - • 

PRINT CHR* (27):: INVERSE I RETURN I REM CARACTERES 
SOUR IS 

PRINT CHR* (24)1: NORMAL I RETURN I REH CARACTERES N 
uPMAUX 



GOSUB 455: HOHE 

i 

REM ■a<t«M*»«««M»M««IHHIMl 

REH ♦ GRANDE DONNEE/ COEFFICIENT *• 
REM ...................... ......... 



X = 0: FOR I = I TO 12 

IF V(I.B) > X THEN X = VCI.0) 

IF VU , 1 > > X THEN X = V(I.l) 

NEXT 

CO * X / 20:E = XiH = 9 

IF X > 9999 THEN X = INT (X / 10): GOTO 205 
E ° X 

FOR I * 1 TO 12:11(1. «> " V(I.B) / 000(1.1) = V<I.l) 
/ CO: NEXT 

REM M*MHIHMmMM»»»»IHt»*»«M)(IHHl 

REM • « TRACE DU GRAPHE *• 

REM 

FOP I = 2 TO H STEP 2:VL» - LEFT* (V».5 - LEN < STR* 
(E))) 

L»U> = VL» + STR* (£)+■-.': VTAB I: POKE 1403,0 

: PRINT VL»E:L* = 

L»(I + 1) = ' _ 1 

GOSUB 135: HTAB 7: VTAB II PRINT "L_*: HTAB 8: VTAB 
1 4 it PRINT 

GOSUB M0:E = INT (X / 10 * H) 

IF E < 108 THEN E = VAL < LEFT* ( STR* (X / 10 • H>. 
4)> 

M * M - 1 : NEXT 

TITRE* = • RESULT ATS COMPARES DES ANN EES ■ * STR* (Al 
) + ' ET " ♦ STR* (A2> 

L»d) = LEFT* (V*.(85 - LEN <TI*>> / 2) * TI*: VTAB 
1: HTAB 1 : : PRINT L*C 1 > 

VTAB 23: HTAB 1: PRINT L*(23):: VTAB 1 1 PRINT 
GOSUB 135 

L*C22> = LEFT* (V*.7)t HTAB 0- FOR I = 1 TO 72) VTAB 



ATTENTION 1 La carle 80 
COIONNES est mdlspen- 
sable. le programme ne 
foncllonne convenabie- 
menl que sur Apple lie + 
65CQ2ou Apple lie. 



II est reeflement Ires 
facile d'obtenir les carac- 
leres SOURIS. tommo 
vous le monlrenl les 
lignes I3S el 140. 



De la llgne 180 d la ligne 
19S, on recherche quelle 
esl la plus grande valour 

(X). 

Si elle depasse 9999 (4 
chitfres). on lo divlso par 
10... el encore par 10 si 
cela esl necessaire. Dans 
le cas de peliles valours, 
on afflchera 7 decimoles. 

Pendant le trace de I his- 
togramme, le program- 
me ciee les 23 lignes (LS) 
qui permetlronl de 
I'imprimer... sans passer 

par I' Intermedia ire dune 
recap ie d'ecron 80 
colonnes. 
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CARACTERES SOURtS 



*- a 

B= k. 

C= X 

D= V 

E : ■ 

F* (I 

G= < 

M= f- 

M _ 

K= T 

I" 

M* 

N ■ 

0= * 



n» « 

8= - 

T= L 

U- -» 

V- ■ 

w % 

X= C 

Z : I 

I s ♦ 

v - 

a.- 3 



ITER 2 



Notex que I'on utilise le 
mode unidirecilonne! el 
que I'on modilie 1'interli- 
gnage (T15). I'occes auv 
caractores souris en 
obienu par ; 

PRINT CHR$(27) ; 
CHRS(3B) 

On relrouve les corocte- 
res normau* ovec un : 
PRINT CHR$(27) ; 
CHR$(36) 



UTILISATION 



Tel qu'il est, ce pro- 
gramme permet de com- 
parer les resultots de 
deux onnees (completes 
ou non). mais il est evi- 
demment possible de 
I'uliliset a d'autres tins. 
Cesl 16 qu'lnlervlent 
I imagination ! 



385 
316 

315 

328 

325 

330 
335 
340 
345 
350 
355 
360 
365 
370 



375 
380 
365 

390 

395 



405 
410 
415 
420 
425 
430 
435 
440 
445 
458 
455 
460 

465 
479 
475 



22: PRINT "L";:L»C22> = L»(22> + "l/; NEXT 
FOR I » 1 TO 12: FOR K - 2 TO H 

Z = H ♦ .5 - MCI. I): IF K < Z THEN LSCK) = L»(R) * ■ 
•i GOTO 320 

POKE 1403.3 * I • 6: VTAB K: PRINT "W : :L»CE) « LtC 
K> ♦ "WW" 

Z - H ♦ .5 - MCI.l): IP I < 2 THEN L«CK> = L»c K J * • 
"J GOTO 330 

POKE 1403.5 + I » 6: VTAB K: PRINT "NN'::L«CK> - L»C 
f ; ♦ •NN" 

IF I < 12 THEN L»(K) = L»CK) + ■ ■ 
NEXT : NEXT 

GOSUB 140: VTAB 22: PRINT 

REM ■»■■■«•••••■«••••••»••«««••■•••«•• 

REM M IMPRESSION « 

REM *•«••*«•«••»•««•*•«•••••->*#■•»••*« 

it 
p 

VTAB 24i HTA8 B: INVERSE : PRINT ■ PRESSER UNE TOUCHE 
POUR IMPRIMER CETTE PAGE CCTRL-C - A REFAIRE> ■ : : N 
ORMAL : CALL - 198: GET R»: VTAB II PRINT ■»! IF P» 
= CURS CO) THEN 150 
IF R* = CMP* C27) THEN 780 
HOME I PRINT CHR» C2l): PRINT 

PRINT CHR» C4)'PR£1": PRINT t PRINT CHRS C9)-88N": P 
RINT CHR» C27)'>'; CHR* C27)'T15": CHR* C27)"E": 
FOR I - 1 TO 23: IP I - 1 OR I » 23 THEN PRINT L»( I > 
: GOTO 415 

PRINT LEFTS (L»CI>.6>; 

FOR J - 7 TO LEN CL«Cf )>tL9 - MID* (L»CI).J.l): IF L 
» ■ "U" OR L» • OR Lt - "W OR Lt ■ "L" OR L» = 
•N" THEN PRINT CHR* <27>i CHR* C38):L*; CHR* C27>i C 
HR* C36);: GOTO 410 
PRINT LS; 



SI -obi " *l»-fl».i pci (all* Inpilmant* loum 

»> -. HINT ZHWV) V •> -i.. 4 ft. Im)i.;.l 



485 
490 
495 



NEXT 

PRINT : NEXT 
PRINT CHR* C4)-PR£0- 

PRINT CHP* C4)"PR£3": PRINT : HOME : GOTO 189 

REM •■••■■■■■•■■•t>. •-■*■»-**•>•••••■•• 

REM INITIALISATION »* 

REM »«#•*# *•<»♦«« «*»##»»»»*»« *»•»■»•«»#« 

■ 

V» - '■: FOR I = I TO 2B:Vt = V* ♦ ■ NEXT 
WC23) » ' JANV FBVR MARS AVRI MAI JUT 

N JUIL AOUT SEPT OCTO NOVE DECE" 
H = 21 : REM HAUTEUR MAXIMUM COLONNE 

* 

rem HMwnw i mn mmm im i rwHyi 

REM h SAISIE DES CHIFFRES " 

REM w«*«o«v*»fJf^Oi«tf«fi »»•»*««*» 

i 

HOME : PRINT 'SAISIE OES DONNEES' : GOSUB 135: PRINT 
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HISTO.TEXT (suite) 



■LLLLLLLLLLLLLLLLLL" : GOSUB 140 
508 POKE 1403. 16: PRINT "Taper un simple RETURN quand le 

chit* re est Don" 
505 POKE 1413.16: GOSUB 135: PRINT 'a':: GOSUB 148: PRIN 
T " en cas d'erreur — ':: GOSUB 135: PRINT 'A-;: GO 
SUB 148: PRINT ■ pour affichage du graphe" 
510 VTAB 22: PRINT I PRINT " DESIREZ-VOUS LIRE UN FICHIER 
(0/N) ? ":: CALL - 198: GET R»: PRINT "i IF R* = ' 
O" OP R* = 'o" THEN GOSUB 740 

515 VTAB 6: CALL - 958 

520 AB* = "1985 1986": IF Al AND A2 THEN AB* = STR» (Al ) 

+ CHR» (32) + STR* <A2) 
525 VTAB 22: PRINT I PRINT 1 ANN EES CONCERN EES. SEPAREES 
PAR UN ESPACE: "AB*:: POKE 1403.43: CALL - 198: INPU 
T " ;AN* 

530 IF PEEK ( - 16286) > 127 THEN 510 
535 IF PEEK ( - 16287) > 127 THEN 670 

548 IF AN* = " THEN AN* = AB*i CALL - 998: POKE 1403.43 

: PRINT AN* 
545 IF HID* (AN».5.1) < > ' ' THEN 525 
550 Al = VAL < LEFT* (AN*.4)):A2 - VAL ( RIGHT* (AN*. 4)) 

: IF Al < 1900 OR A2 < 1980 THEN 525 

555 VTAB 6: HTAB 6: PRINT Al ; : HTAB 19: PRINT A2 

560 FOR I - 1 TO 12 

565 VI* ■ • * : IP 1 > 9 THEN VI* = ■■ 

570 GOSUB 575: GOTO 580 

575 VTAB 7 ♦ Ii PRINT VI»I".» LEFT* <V*.25>;: HTAB 12 - 
LEN ( STR* (VCI.9))): PRINT V(I.O);: HTAB 25 - LEN < 
STR* (V(I.!)»: PRINT VCI.Dll RETURN 

588 POKE 1403.30: PRINT Al ; I GOSUB 135: PRINT 'U":: GOSU 
B M«: INPUT ■ ":R* 

585 IF PEEK ( - 16286) > 127 AND I > 1 THEN I = I - li G 
OTO 565 

590 IF PEEK ( - 16287) > 127 THEN 670 
595 IF R* = THEN CALL - 998: GOTO 605 
600 VU.0) = VAL (R»): GOSUB 575 

685 POKE 1403.45: PRINT A2:: GOSUB 135: PRINT "U":: GOSU 

B 140: INPUT ■ "lR» 
610 IF PEEK ( - 16286) > 127 THEN CALL - 998: GOTO 588 
615 IF PEEK ( - 16287) > 127 THEN 678 
620 IF R* ■ " THEN 638 
625 V(I.l) - VAL (R»): GOSUB 575 

630 PRINT : IP I = 12 THEN VTAB 22: CALL - 958: PRINT 'P 
RECISER SI CORRECTION OU AFFICHAGE DU GRAPHE (CTRL- 
E) « ENREGISTREMENT ) ";: CALL - 198: GET P»: VTAB 1 
9: PRINT ": IF R* - CHR* (5) THEN 748 

635 IF I = 12 THEN 610 

648 NEXT 

645 : 



F1CHIER 

Vous pouvei mimoriser 
vos donnees (fichrer on 
ne peuJ plus closslque). 
Un consetl : donnez un 
titre Ires simple 6 vos 
fichlers. Exomplo H85.86 
(qui evoqut* les deux 
onn6os toncem^es). 



SAISIE 

Pomme ouverle + return 

permol d'oller directe- 
ment a I'otfichoge du 
grophtquc. 

Pommo fermio + return 

renvoi© 6 litem pre- 
cedent 

NOvbltez pos de mainte* 
nir la louche pomme 
enfonc4e quond vous 
appuyex sur RETURN, 



La routine saisie est 
ossci originate, memo si 
elle prisente quelques 
difouls. Elle perme! 
nolomment de savotr 
quollos valeurs ont 
modilides... mais seute- 
ment dan* In mesure ou 

Von n'utJlis* pos "Pomme 
fermie + return"..* cor 
tes corrections iventuel- 
les modifieni Svldem- 
ment I'dcron de base, 
Vous comprondrez tout 

ceio quond vous saisirez 
de* donn£@s... 
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CUY-HACHETTE 



EVASION 

II n'est pas tros focite 
(lauf par un RESET) do 
sortir du programme de 
Cl4mor>t Renard,., molt II 
exlsfe pourianf une sar- 

He naturetle. aprfcs 1'aHi- 
cbage de (histogram me. 
A ce moment, si vous 
repondez por ESCAPE... 
puis RETURN, vous vous 
retrouvez be) el blen 6 la 
llgne 790* t . mois un 
GOTO 10000 vous resti- 
tuero — inlocles — iou- 
tes vos donnees ! 



IIGNE 770 

Claulque routine de teal- 
lement des erreurs, ovt- 
lonl le plontage apres un 
GOSUB. 



SAUVE 

GOTO 10000. 
reporl I 



el co 



659 
655 
666 
665 
670 



675 
668 
685 
698 
695 
700 
705 
710 



715 
728 
72S 
738 
735 
748 

745 
758 
755 
760 



765 
770 



775 
78« 

785 

790 



REM ««Niiiiiflii«iiiaaaNiaK»ftMaiiB*«N*a« 
REM »» PAS DE DONNEES: TERMINER " 
REM • ••»*••»••••••••»■•*■••■*«*•••«•» 

* 

IF NOT VO.0) AND NOT V(l.l) THEN HOME i INVERSE I C 
ALL - 198: VTAB 12: PRINT ■ DESOLE MAIS IL N'Y A PAS 
DE DONNEES POUR TRACER UN 0UELC0N0UE GRAPH E ' : NORM 
AL i POP : GOTO 775 
RETURN 



REM 
REM 
REM 



LECTURE D'UN FICHIER 



IF F» = " OP PEEK ( - 16286) > 127 THEN RETURN 
VTAB 28: PRINT I PRINT CHR» (4)"0PEN'F»: PRINT CHP* 
<4)'READ"F»: INPUT Al: INPUT A2: FOR I ■ 1 TO 12: IN 
PUT VU.0): INPUT V< 1 . 1 ) : NEXT l PRINT CHR* (4>'CLOS 
E"F»: RETURN 

• 

REM ■ «»#•■ ■• 

REM #. MEMORISATION DONNEES " 

REM WBMM MM M M 

* 

VTAB 22: CALL - 958: INPUT 'TITRE DE VOTRE FICHIER ■ 
:FS 

ON ERR GOTO 770 

IF R» » "0" OR R* * "o' THEN 705 

IF P» « " OR PEEK C - 16286) > 127 THEN 515 

VTAB 28: PRINT I PRINT CHW <4)"0PEN"F»: PRINT CHR* 

(4)"WRITE"F»: PRINT Al : PRINT A2: FOR I ■ 1 TO 12: P 

RINT VU.0): PRINT V(I.l): NEXT I PRINT CHR* <4>"CL0 

SE'F»: GOTO 675 

POKE 768.104: POKE 769,168: POKE 770.104: POKE 771.1 
66: POKE 772.223: POKE 773,154: POKE 774.72: POKE 77 
5,152: POKE 776.72: POKE 777.96: CALL 768: GOTO 515 

CALL - 198: POKE - 16368.0: WAIT - 16384.128.127: PO 
KE - 16368.0: TEXT : HOME 

PRINT "RIEN N'EST PERDU EN TAPANT:": PRINT | PRINT ' 
9 GOTO 10000" : VTAB 2 

END 

10000 POKE 51.0: GOTO 150 



Dans le numero 9 de TREMPLIN MICRO (3 juillet). nous publierons une courle 
routine qui vous permettra, avec une DAAP ou une IAAAGEWRITER normale, 
d'editer un HISTO.TEXT (par I'intermediaire des caracteres personnalises), 
mois I "off re de NESTOR (page 41) tient... et si vous dies presse ! ... 



TREMPLIN MICRO 



AS 




Q ; Peot-on. dans le cadre d'un INPUT tradition* 
nel t onnuier une ligne de saisie sans reventr en 
arriire ? 



R ; Oui. II suffit de taper un CTRL X et tout ce 
qui o e»e saisi esl annuls 
CTRL-X (obtenu en pressant ilmuliandmeni lo 
touche CTRL el to louche X} offiche un \ ({ en 
AZERTY) et vo au dfbul de lo ligne suivante, 
ou Ion peul rocommencer ta saisie, 

GUXLLEMETS 

O : Est-il reeilement impossible, sans passer par 
une routine en tangage machine... ou par un 
GET. de *aisir un espoce au debut d'une wria- 
ble, ou encore les caractires de pcnctuation ? 

R : Meme ovec un INPUT classique, on peut 
commencer la saisie por un espace — qui 
sera prls en compte I — et se servir des 
divers signes de ponctuation, mais il convent 
d'ouvrir d'obord les guillemets* II ne sera paa 
necessaire de les reformer. 
Attention ! si le contenu de lo variable doit 
oiler dans un Itchier, il sera indispensable de 
le (aire prdc6der par un CHR$(34) lors de son 
etnture dans le fichler {exemple : PRINT 
CHR$(34) + AS>. 

LES 4 LIGNES DE TEXTE EN HGR2 

: On peut obtenir 4 Ilgnes dc text* en bas de 
la page HGR2, mais le ne riussis pas a les 4crire 
(f espace est tontat vide, tantdt rempli de carac- 
tires bizarre*, en mode FLASH et INVERSE). 
Paortant. cela fonctionne tr&s blen avmc lo poge 
HCR normale* Mon Apple camporte-Nl one 
anomalie ? 

Jt : Comme vous le savez, il sulfit d'ev6cuter 
une command* POKE — 16301,0 aprta un 
HGR!?.. pour avoir acc&s, st Ton peut dire, 
aux quotre dernieres Irgnes d'un £cran 
T F X T . . qui est celui de la page 2 basse reso- 
lution* Or les adresses sont differentes de 
codes de lo page 1 * En fait, ce sont les m£mes 
+ 1024* Pour ficrire dans cette partie de 
I'icran, il convient done d'y poquer une 6 une 
les voleurs ASCII + 128, comme ceci : 

100 AS - "VOICI UN SIMPLE ESSAI, UNE 
DEMONSTRATION" : REM (40 cafoct*res) 



110 FOR I = 1 TO 40 : POKE I + 2639. 

ASC(MIDS(A$.I.1)1 + 128 : NEXT 
Je vous roppetle les adresses des 4 dernieres 
Irgnes : 1616, 1744, 1872 et 2000 l> 1024,*. 
lorsqu'il s'ogit, comme ici, de la page 2). 

VIRGULE ET DATA 

O ; J'ai remarqu4 que, dons certains program- 
mes on place plusleurs vlrgvles. les unes a lo 
suite des outres dans one ligne DATA. 
Paurquoi ? 

R : Choque virgule correspond 6 un element 

vide. C'esf portois pratique* Or, pour simuler 

un element vide, it with, soil de crfier une 

ligne vide comme collo-ci . 

100 DATA (elle est bien vide, non ?) 

ioi' d'ajouter une virgule quelque part : 

100 DAIA*TOTO, = *l*menf vide, puis 

TOTO, puis dlement vide. 
Il n'est pas interdit de taper X virgules pour 
(Igurer X 416ments vides. 

CALL — 151 

O ! SI j'ol bien compris. pour recopier un pro- 
gramme en langage machine, il tout d'abord 
taper CALL — 151 puis la premiire adresse t 
suivi des codes, mais je n'obtiens que lasteris- 
que t et ceci matgri do multiple* esso/s*„ si bien 
que i'oi abandonn4 I 

R : Vous oubtiez (indispensable RETURN 
aprAs votre CALL — 131. C'est RETURN qui 
valide toutes vos entries, ne I'oubliez pas, Il 
est sous-entendu dans toutes les explications 
que nous donnons* D'oulre port d'apres 
votre lettre, vous commeOez une seconde 
erreur en loisonl suivre la premiere adresse 
du programme por un tiret*** que votre moni- 
teur ne reconnaTl pa*. H (aui utlliser les deux 
points (:). 

Pour lo resle, vous avez compris, puisque 
vous respectez Tobligatoire espace entre 
choque valeur, Sochoz toutefois qull n'est 
pas necessatre de toper 01 02 03 00. 
Puisque le premier z6fo no compte pas. 
1 2 3 lent tre< bien I "affaire I 
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ProOOS 



Yvan KOENIG 



DIMDEL 



Ou comment changer la dimension d'un tableau en cours de programme ? 

r ssayez en mode direct DIM A{12), par exemple. et A(13) = 99... Un 
L BAD SUBSCRIPT ERROR vous signale que la tentative de donner une 
valeur 6 un element de tableau d'indice superieur 6 12 est impossible. 
C'est ici qu'intervient DIMDEL. 



UTILISATION 

DIMDEL s'omplote ou trovers de I'ompersand (&) 
A DIM A + Pourafout€f un dement ouioUtQU AO* 
& DIM A — Pour supprimer un dement ou tableau A(), 

& DIM A Supprlme le loblftau Af). 

& DEL A Pwnwf do radlmcnsionner. mgii au«i 
donno la posiibiliffe de metire 6 r$ro le* 616* 
mtnts du tobleou A(j. II suHit en eHei do 
rocreer Ifc tableau efface. 

Revenons 6 I'exemple du tableau A dimeiv 
sionnd 6 12 6l6menls. Pour le dimensionner 6 



13 elements, alin que notre A{13) = 99 soil 
accept*, il (out simplement & DIM A + avant 
I'aHectotion de la valeur 99 ou tableau A. Le 
programme BASIC suivant en fait la demonstra- 
tion (si vous avez tape et enregistre, sous le 
nom de DIMDEL la routine en langoge machine 
d6ftQ3&*mblee en poge 49). Celle-ci est appeiee 
6 la ligne 1QQ du programme basic. A cette 
m§me ligne, la (onction 8 LOMEM : eHectue un 
LOMEM special qui protege le langoge 
machine. La routine est chargde juste apr6s le 
basic. Gore aux aiouts de lignes qui 
l*6craseraient ! 



!BB TEXT : PRINT CHR* (21): HOME I PRINT CHR» <4)"BRUN DIMDEL. A' PEEK (175) + 

256 * PEEK (176): & LOMEM: : HOME 
119 HTAB 6? VTAB 2: PRINT "Prenons un tableau en exemple*: HTAB 4: VTAB IB: P 

RINT 'DIM A C12)*:NMAX * 12: DIM A (NMAX) 
128 FOR I = 9 TO NMAX:A<I) - I: NEXT : VTAB 4: FOP I = TO NMAX: HTAB 18: PR 
INT A(I)i NEXT I GOSUB 248: HTAB It VTAB 2: PRINT " I ) faut employer.--";: 
PRINT SPCC 15) 

130 GOSUB 258: HTAB 4: VTAB 18: INVERSE : PRINT DIM A **: NORMAL : GOSUB 

258: HTAB II VTAB 2: PRINT SPC< 16): HTAB 28: VTAB 2: PRINT "et ajouter u 

ne valeur": GOSUB 250 
148 & DIM A + :NHAX = NMAX * 1:A<NMAX) = 99: VTAB 4: FOR I • 8 TO NMAX I HTAB 

21: PRINT A(I): NEXT : GOSUB 258: HTAB 8: VTAB 21: PRINT "99 apparttent a 

u tableau AO": GOSUB 258: GOSUB 248 
158 HTAB h VTAB 2: PRINT 1 Rtduire la dimension eat aussi simple *1 GOSUB 2 

58: INVERSE : HTAB 13= VTAB 18: PRINT "-": HTAB 4: VTAB 12r PRINT "& DIM 
A NORMAL l GOSUB 258 
168 & DIM A * :NNAX * NMAX - It & DIM A * :NHAX - NMAX * It VTAB 4r FOR 1=8 
TO NMAX: HTAB 24: PRINT ACI): NEXT : GOSUB 258: HTAB 2: VTAB 21: PRINT " 



TREMPLIN MICRO 



47 



PIMP EL.DEM O (suite) Yvan KOENIG 

La tableau A (> est dimensions a U. B i GOSUB 248: KTAB 4; VTAB I2i PRINT 
SPC( IB) 

170 HTAB 4: VTAB 16: INVERSE ■ PRINT •& DEL A";: NORMAL : PRINT » "i GOSUB 
2SB: & DEL A: DIM A(2e>: HTAB I : VTAB 2: PRINT •Initialiser / redimension 
ner un tableau' 

180 VTAB A: INVERSE I FOR I = TO 12: HTAB 32: PRINT A<I): NEXT : NORMAL : G 
OSUB 250 

190 PRINT CHR» (7);: HTAB 2: VTAB 21: PRINT ■ <E>NCORE <B>ASIC <M>ENU DISQU 

ETTE " : : GET X» 
200 IF X» • "E' OR X» = "e* THEN CLEAR : GOTO 100 
210 IF X$ ■ "B" OR X» = "b* THEN TEXT I HOME t END 
228 IF X» - "M" OR X» = "m' THEN PRINT i PRINT CHR* C4VRUN MENU" 
230 GOTO I9fl 

240 PRINT CHR* (7);: HTAB 30: VTAB 24: PRINT *<TOUCHE> ":: POKE - 16368.0: GE 

T X0: HTAB 30: VTAB 24: PRINT SPCC 8) ; : RETURN 
250 FOP J - 1 TO 980: NEXT : RETURN - 



RAPPELS SUR LES TABLEAUX 
EN APPLESOFT 

(rAservds aux durs de la progrommotion) 

II existe frois types de tableaux : entiers, f lot- 
fanls et chalnes. Ces tableaux sont fraites dlffe- 
remment selon leur nature* 

Un tableau comporle plusieurs parties* 6 
sovoir : 

Un descrlpteur du tableau et une zone de 

stockago d'Al^ments pour les tableaux de 
nombres. 

Un descripleur du tableau une zone de stoo 

kage des descripteurs de chalnes et enfin le 
stockage des chalnes proprement dites 
(celles-ci peuvent dtre on partle hauie de la 
memolre ou dans le BASIC lui-mflme). 



Les descripteurs de tableaux ont lo structure 
suivante : 



OCTET 


CONTENU 


INT 


FLO 


STR 


a 




neg 


neg 


pos 


i 




nog 


pos 


pDS 


2 


sctie taua r&rht Kith du 


















3 


parte bale tta&f oefeli du 


















4 










5 










6 










X 


parti* to.« frauto dmeiitat 








x + 1 


pyJii bom prtvita dm*ulai 









Lorsque Ion di! "dimension", il (out comprendre dimension + 1" puisque Ton doit ajouter le rang 
z^ro (DIM A{10) donne 1 1 *l6ments). 

En ce qui concerne les Elements, les entlers sent stockds sur deux octets les (lottants sont sur cinq 
octets et les descripteurs de chalnes comportent trois octets (un pour la longueur, deux pour I'adresse). 

SI VOUS ETES NEOPHYTE, LISEZ CECI : 

Gontentez-vous de toper les codes de la routine DIMDEL, en proc£dant de la mani&re hobi- 
tuelle : CALL — 151 puis 2000 : 20 58 FF BA. etc. sans oubller un ©space entre chaque 
codo. Volidez chaque 6l6ment de saisle par un RETURN (ne faites pas des Hgnes trop Ion- 
gues), puis retapez une nouvelle hgne en commenfont par I'adresse suivle de deux points. 
Lorsque vous aurez fermlnd la saisie de tous les codes, un CTRL-C ( + RETURN) vous permet- 
tra de retrouver I'AppIesotl. Enregislrez alors votre routine sur disquette par : 

D5AVE DIMDEL. A$2000. L*145 « 



GUY-HACH ETTE 



2eee- 


28 


59 


FF 


JSR 


•FF58 




2683- 


BA 






TSY 






2864- 


80 


FF 


48 


LDA 


*8BFF, 


,x 




16 






CLC 






2868- 


69 


I' 

• * 




ADC 


£419 




288A- 


8P 


F6 


13 


STA 


t83F6 




28BD- 


BO 




91 

mm w 


LDA 


18108, 


X 

1" 


4»V J V 


xO 
Or 


A a 

V v 




ADC 


* i $ h 

* Wm v 






an 
Qv 


F7 

r r 




CTA 






29 1 5- 


n p 


4C 




LDA 


£* 4C 




26 1 7 ~ 


9D 


f 5 


63 


STA 


iB3F5 




28 1 A- 








RT5 






26 IB- 

fa v * w 


48 












28 1 C- 


20 

fa ~ 


Bt 


96 


JSR 


S68BI 




261F- 


68 






PLA 






2828- 


C« 


85 




CMP 


£*95 




2822- 


F8 


19 




8E0 

W0 *m W 


*283D 




•* w fa ~ 


ro 


DO 






t v w V 




2826* 

V fa V 


FB 


15 




BED 

W Lb U 


♦28 3D 




*- W m- V 


C9 

V r 


A4 


















8NE 






282C- 


AO 


F6 


83 


LDA 


•83F6 




282F- 


6« 


29 




ADC 


£•29 




2831- 


65 


5fl 




STA 


•58 




2833- 


AD 


P7 




LDA 


$83F7 




2636- 


A 


A 1 




ADC 


£$61 




2838- 


B5 






STA 


f 51 




283A- 


4C 


AC 


F2 


JMP 


*F2AC 




26 3D- 

fa V 


85 


48 




STA 

w i n 


$46 




283F- 

fa V I 


A9 


46 




LDA 


£$48 




2641 - 


85 


1 4 




ST^ 


$14 




2843- 


29 

fa w 


E3 

I— V 


DF 


JSP 


$0FE3 




2644- 


A9 


88 




LDA 


C$88 




2848- 


83 


14 




STA 


$14 




204A- 


A8 


82 




ldy 


£$82 

4- v ■ 




28 4C- 


18 






CLC 






284D- 


A5 


•B 

* w 




LDA 


$9B 




284F- 


71 
* • 


9R 

mr 




ADC 


($98 > , 


,Y 


2851- 


85 


3C 




$TA 


$3C 




2853* 


C9 






1NY 
■ i ^ i 






2054- 




9C 






$9C 




2834- 

fa W W V 


71 


Qp 




ADC 


< $9B '» 


V 

i ■ 


2858- 


85 


3D 




STA 


*3D 






A5 


48 




LDA 


* A .1 




285C- 


C9 


85 




CMP 


e*B5 




285E- 


F8 


ID 




BED 


»2B7D 




2868- 


28 


87 


89 


JSR 


488B7 




2863- 


F8 


18 




BEQ 


•28 7D 




2865- 


C9 


ce 




CMP 


ttCB 





DIMOFI 



j Un RTS garanti par Apple, 
initialisation du vecteuf & (Ampersand). 



JMP 



lei, on souve le TOKEN et on lo rocup&re 
opr6s un avoncement. 



H Quelle 

J 



ost la lonction appelee DEL, DIM ou 
LOMEM ? 



Zi C'est une erreur. 



FONCTION & LOMEM 



Utile pour proi^geMout Id programme LM. 



_ L'Applesoft vo terminer. 



FONCTION & DEL & DIM 



] 



II faut localizer le tableau, a I'afde de 
PTRGET de I Applosoft qui pointe sur une 
variable. 



Adresse du tableau LO. 
Ajout nombre octets LO. 
Adresse LO tableau sutvont. 



M#me chose partie haute 



et on rikupere le TOKEN, 
DEL ? 

Quel mode ? 

suppression du tableau. 

— pour supprlmer un element. 



TtEMPLIN MICRO 



4? 



DIMDEL 












Yvan KOFNIH 


2867- 


F* 


B7 




BEQ 


• 2878 








286?- 


C9 


C? 




CMP 


E«C? 






i + pour ojouter un element 


286B- 


F8 


93 




BEO 


•2878 






2960- 


4C 




DE 


JMP 


•DEC9 




— - 
- — i 


Coat una affftur 


2878- 


6A 






ROR 






— 


Cost bon Lo rnrYimnndo ost eninilf*e il font 


2871- 


80 






PHP 








compter lo nombre do dimonslons. 


2872- 


C8 






I NY 








2B73- 


Bl 


A ah. 

98 




LDA 


(»9B) 


,v 






2875- 


C* 


Bl 




CMP 


£•81 








2877- 


F8 


IF 




BEQ 


42898 








287?- 


28 






PLP 








Oul, sortl# du programme. BAD SUBSCRIPT 


287A- 


4C 


96 


EI 


JMP 


•El 96 






ERROR 


287P- 


fl5 


00 




LDA 


•9B 






Initialisation del pointours do MOVE ot fin 


287F- 


85 


42 




STA 


♦42 






do xono dos tableaux pour la suppression 


28BI- 


A3 


9C 




LDA 


«9C 






du tableau* 


2883- 


85 


43 




STA 


•43 








2885- 


38 






SEC 










2886- 


A5 


60 




LDA 


•60 








2888- 


85 


3E 




STA 


•3E 








2B8A- 


88 






DEY 










2888- 


Fl 


°B 




SBC 


<*9B>. 


,Y 






286D- 


85 


60 




STA 


•60 








288F- 


A5 


6E 




LDA 


S6E 








2891 - 


B5 


3F 




STA 


*3F 








2893- 


C8 






I NY 










2894- 


Fl 


9B 




SBC 


<«9B> 


,Y 

F 




Broncho tou|ours 


2896- 


08 


5B 




8NE 


•2BF3 






partie haute adresse zone proqramme. 


2898- 


C8 






I NY 










2899- 


A5 


Bl 




LDA 


•81 






Premier caract^re du nom. 


2898- 


18 


81 




BPL 


• 289E 






St pas entier. 


2890- 


98 






DEY 










289E- 


A5 


92 




LDA 


•82 






Deuxieme caractere du nom. 


28A8- 


18 


82 




BPL 


• 2BA4 






SI pas entier. 


28A2- 


68 






DEY 










28A3- 


86 






DEY 










28A4- 


84 


48 




STY 


•48 




— 1 


Rt6L=5 CHAINE = 3 ENTIER = 2 


2BA6- 


*e 


83 




LDY 


f*B5 






pour utilisation ultArfeuro. r£cupdre la 


28A8- 


28 






PLP 








fonctton* 


2BA9- 


98 


57 




BCC 


• 2BFD 






Cost " + *\ 


28AB- 


81 


9B 




LDA 


<*9B) 


,Y 

F 




Partie haute nombre d'^lements > 0. on 


2BAD- 


DB 


87 




BNE 


• 2BB6 






pout continuer (Y = 5), 


28AF- 


ce 






1NY 










2BBB- 


81 


OB 




LDA 


<*?B) , 


X 

r 


_ 


Partie basse nombre d'dlements. 


2BB2- 


C? 


• 2 




CMP 


(•82 








2884- 


98 


C4 




Pff 








1 alAmanl no f ntn ^ i innri m r 

1 ' » ^- l 'i *- 1 l 1 . 11V 1 IVIl 3Up^JI IIIIVI i 


28B6- 


Afl 


86 




1 OY 


L. 9 V O 








2BB8- 


Bl 


98 




LDA 


(•9B> 




— 1 


Partie basse nombre d'6!6ments. 


28BA- 


E9 


81 




SBC 


£•91 






Retrancho 1 au nombre d'dlemonts. 


2B8C- 


91 


»B 




STA 


f*9B> 


9 






2BBE- 


98 






DEY 








Y- 5 



so 



OUY HACHET1F 



29BF- 


Bl 


«B 




L0A 


(*9B> ,Y 


2BCI- 




98 




SBC 


£186 


28C3- 


91 


ofl 




STA 


<*9B\Y 


29C5- 


A9 


92 




LDY 


£462 


28C7- 


Bl 


OB 




LDA 


<$?B1 r Y 


28C9- 


38 






SEC 




28CA- 


E5 


4t 




SBC 


»4B 


28CC- 


91 


oe 




STA 


<*9B>,Y 


2BCE- 


C9 






1NY 




28CF- 


Bl 


OB 




LDA 


<»9B) ,Y 


2BDI- 


E9 


96 




SBC 


£«68 


2803- 


'1 


°8 




STA 


(•9B>,Y 


2BD5- 


BB 






OEY 




2BD6- 


t A 












AS 


OR 




LDA 


*op 




"M 
• l 


op 




ADC 


9B> Y 


?ADR- 


D J 


4? 




STA 

win 


■7 T A 


26DD- 

l> V V w 


A3 


9C 




LDA 


*9C 


28DF- 


CB 






I NY 




28E8- 


71 


OB 




ADC 


<»98>,Y 


2BE2- 


B5 


43 




STA 


*43 


28E4- 


A5 


60 




LDA 


*60 


29E6- 


95 


3E 




STA 


*3E 


28E8- 


36 






SEC 




2IE9- 


E5 


40 




SBC 


»48 


28EB- 


85 


60 




STA 


*6D 


28 E0- 


A5 


6E 




LDA 


*6E 


28EF- 


B5 


3F 




STA 


»3F 


28F1- 


EO 


88 




SBC 




28F3- 


85 


6E 




STA 


•6E 


28F5- 


A8 


II 




LDY 


£*96 


28F7- 


29 


2C 


FE 


JSR 


»FE2C 


28 FA- 


4C 


«3 


09 


JWP 


•D995 




pn 






INT 




28FE- 


Bl 


OB 




LDA 


t«9B),Y 


2189- 


69 


81 




ADC 


£»61 


2192- 


91 


OB 




STA 


(*9B>,Y 


2184- 


88 






OEY 




2195- 


Bl 


08 




LDA 


'«ob>,Y 


2187- 


60 


99 




ADC 


£488 


2189- 


91 


9B 




STA 


<*9B>,Y 


219B- 


A8 


92 




LDY 


£»82 


218D- 


Bl 


oe 




LDA 


<I9B>,Y 


2IBF- 


65 


49 




ADC 


«49 


2111- 


91 


9B 




STA 


<»98>,Y 


2113- 


CB 






I NY 




2114- 


Bl 


08 




LDA 


<«9B> ,Y 


2116- 


69 


89 




ADC 


£*88 


2118- 


9) 


9B 




STA 


<*9B),Y 


211A- 


A5 


3C 




LDA 


»3C 


211C- 


A4 


30 




LDY 


430 


2I1E- 


85 


OB 




STA 


»9B 



Retronche longueur tflAment au nombre 
d octets du tableou. 



- Y = 3 



□ Y = 2 



Calcule Tadresse de dibut do zone a 
doscondre. 



□ Y = 3 



Pointeur de fin de zone des tableaux. 



Initialise I'odresse de tin de rone 6 descen- 
dre et place le nouveau polnteur sur lo (in 
de la zone des tableaux. 



MOVE du Moniteur. 
Ftn destruction* 

□ Y = 6 



Ajoute l au nombre d'tflernerm. 



Y = 5 



Ajoute au nombre d'octets du tableau la 
longueur d'un £l£men1. 



3 Y=3 



*3 D6but de zone 6 remonter. 



TttMPUN MICRO 



D1MDEL 


(suite) 








2120- 


B4 


9C 




STY 


»9C 


"1 


2122- 


A4 


4E 




LDY 




2124- 


84 


97 




STY 






2126- 


A5 


60 




LDA 


*6D 




2128- 


65 


96 




STA 


»V6 




212A- 


65 


40 




ADC 


Art 




212C- 


95 


60 




5TA 






212E- 


65 


04 




STA 


♦94 




2138- 


90 


01 




BCC 


*2133 




2132- 


C8 






I NY 






2133- 


84 


6E 




STY 


*6E 




2135- 


84 


05 




STY 


♦95 




2137- 


20 


9A 


D3 


JSP 


«03'A 




2I3A- 


A9 


«e 




LDA 


C*00 




213C- 


A4 


48 




LDY 


$40 




213E- 


88 






OEY 






213F- 


«1 


9P 




STA 


<*98>,Y 


□ 


2141- 


t>0 


F6 




BNE 


♦21 3E 




2143- 


FB 


B5 




8E0 


*20FA 





Yvan KOENIC 



Sommet de zone 6 remonter 



+ Longueur 6t6mont. 

Nouvelle fin de zone des tableaux. 



□ Execute le d^placement avec ('Applesoft. 



MiseazSro de I'tfltment. 



FIN ROUTINE LM 



(NOTA : D1MDEL t appllquo ausil oux choinoi mt Oux ©ntiors) 



Offrez-vous 31 routines 



mises au point par un special isle : Yvan KOENIG 



Vous avez souvent besoin de routines en 
langage machine pour completer I'APPLE- 
SOFT, mais votre page 3 d£borde ? Ne 
vous £nervez pas, AMPERELO est la avec 
ses 31 routines RELOGEABLES (plus de 
prableme d'implantation !) : 

PRINT USING aux normes francaises, Iri 
rapide, Input controls, recherche dans un 
tableau, position d'une sous-chaine dans 
une chalne, remplacemenl d'une sous- 
chaine par une autre dans une chaine, 
SWAP de variables ou de tableaux, gar- 
nissage de tableaux, DIMDEL, IF THEN 
ELSE, GET numerique controle, PEEK 



et POKE sur deux octets, lis sont tous la. Et 
cela sans vous obliger a etudier le langage 
machine. 

MOSAIQUE vous pemiettra en outre de 
couper-coller les modules dont vous aurez 
besoin. 

En prime, LECTURE.SOURCES vous ser- 
vira a lire sans assembleur, toutes les sour- 
ces MERLIN/BIG/MAC. II vous permettra 
£galemenl de transferer en mode TEXT les 
sources binaires de MERLIN pour en auto- 
riser le traitement sous ProCODE. 
Presentees en format DOS 3.3. les routines 
peuvent etre transferees sous ProDOS. 



LJTILISEZ LE BOM DE COMMANDF. A 1 A F1M OU JOURNAL. 



GUV-HACHETTI 




• PROGRAMMA TION DU 
6SQ2 (Modulo/Betin) 

Ce nouveau volume de lo Cortec/Yon 
Modvh est une traduction du 6503 
Mochtn* Cod* fer Humans (Alon Tootill 
et David Borrow) traduction de Robert 
Monr. Signalon. au pottage que 
MODULO EDITEUR est Canadien et Que* 
becoiv et qu il est represent^ en France 
por les Editions Bel in. 

Jignor© pourquol I on nous o pr ives aim! 
kmg tempi de cat re e * eel lent e Progronv 
motion du 6W7\ Cm! A men avis Tun de* 
meilieurs bouquins hi question. Que 
Ion rte s y Irompe pas ! pour en tirer plei* 
neroeni prollf H H est indispensable d*y 
consoner plutteuro heufes, et de prwl*- 
rente devont un Apple. 

Let outeurs ont pr6f er£ soumettre 6 leun 
fecteuri des diiaines dexemples plutfit 
que de docrire une 6 une lei diverse* iits- 
I ructions du 6507 (ce qui a d'aiileur* ere 
fair, el avec succes, dans ctoulre* fivres). 
Vous dtspoterei done avec ! Ai iembtevr 
du 6503. d*un recueil de routines d une 
granda richesse. En etiet, ce soni pour la 
pluport de* eaempJet pratique* (pormu 
ret deui mors de la page zero, tempore 
sation dune setunde. translation dun 
point, conversion du code ASCII en code 
DCB condense, el une quarantine 
d'outie* sujets !). St vous dies neophyte, 
commence! par une bonne initiation 
(ovec Francois Monte*! — Eyrollei — ou 
Nicole Breaud-Pculiaquen — PSl). moil 
ne larder, pas trap 6 vous oHnr eerie Pro* 
grommotion du 650? : ell* vous rendro 
ossurement de grands services. 



PROGHAMMATION Qu 



6502 




fMfff 



Votre bibliotheque 
INFORMATIQUE 



L'ASSEMBLEUR 
FACILE DU 
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• t'ASSEMBLSUR FACILE DU 
6SC02 (Eymlles) 

Lfn# version enrkhit de I Aswmfcfeur 
locih du 65Cjn (mime outeur). tenant 
compte des nouvelta posstbilites oifer* 
*e» par le descendant de I'un des plus 
populates mlcroprocesteurs ! le 650!», 
cKer 6 not caurs 1 

II lout savoir que 6SC02 equ'P* non 
seulemen* nos Apple, mais oussi teniro 
outies machines) le Commodore LCD par* 
table. Avec Fran?ois Monftll, on entre 
directemenl dons le vil du suj«t. sons 
passer par Ig langue el portals (ash- 
dieuse lei zt pi - ■■ technique de la b£ie 
(|e ne pretends pos qu une telle desalp- 
tion soil inutile). 

Les syitemes numeriques sent topi do 
meni posses en revue, puis on orrrve 6 la 
syntoxe aisembleur du 65CK tr6s voi* 
sine, on le wn\ de celle de son oJno, 
La partie la plus impo^tonte de 1'ouvrege 
est evidemment consotrec ouv drKeVenll 
modes dadressa^e et au ]eu dlmtruc- 
tions du mbcroprocesseur. Ei e'ett 16 que 
le bAl blesse ! bien des lecteurt regretle^ 
ront com me mo* de ne point disposer, 
sur ieuf machine, dinstructions telle* que 
&W et BBS {brcmchement retetit sur un 
bit), N'oublkms pas que Francois Monteil 
s'odress* ki 6 T0US les utilisoteurs de 
65C02 el non aux seuls possessours d un 
Apple He ou dun Apple tic.* 



• PASCAL ISO/AFNOR 
(Donod hhrmotiquej 

Support de coon, ce Hvre contient une 
iniuolio" 6 la proorommalion por la 
m^rhode deductive- Une loivontaine 
de«enipJes de programmes, tous testes 
sur ordinoteur, et un aide-memoire tres 
complet focilitent la comprehension de 
tous les d6rnon1s du longage* La syntave 
do ces elements est decnle par des dio* 
gramrtves tWrs et precis. 

Manuel de reference rouvroge dAlam 
Irsserwt decrit tous les aspects de la 
norme inremationalo ISO. AfNOft mais 
en presente ou»s> les prochaarrt dtWelop- 
pements. Les prc-gromnteurt eiperimen 
tet pourront y decouvrir des porticulori 
le* du iongage qu'ils ne soup^onnaient 
pos. Ouont ouk erudlants et aux amo 
leurs. its y twendront progresstvemerrl 
— mais en travaWlant < - 6 construire 
des programmes executable* sur 
nimporte quel ordinoteur 



• 6XEROC6S COMMENTS* 
D'ANALYSE 
ETOE PROGRAMMA 
(Dunod Informatiquc} 

Peut etre connoaservoui dej^. de Jean- 
Pierre Laurent. I' Initiation 6 fanotyt* ef 6 
to prcgrxsmmalion publiee cher Dunod 
en 1983 (une deutlem* edrtion vient de 
partfrre) ' Cette loo, il retidive, mais tn 
collaborolion ovec Jacqueline Ayel Ce 
ncuvtou livre fail suite ou premier et a 
pour principal obfti la construction pro- 
gressive et convnentee d'algorithmes 

Choque exercice — il y e« a 66 — est con* 
sider^ comme le support d un ente-gne» 
mem dans I an de condu.ro I analyse des 
problerw. On oppreciero porliculifcre- 
ment les algohthmes survants (lisle non 
limrtatrve) : depouillement denqueies. 
pvu du pendu. iri por la methode du mini- 
mum, tri par rise/fton. jeu de master- 
mind, chemins dans un grophe, Iri 

Mais attention I ce n'eit pas tour simple 
et les autewn nous propoient reellement 
dot etercices copobles de nous aider a 
approrandir nos connaissancei en ana- 
lyse : tout un programme.- en ce qui me 
concern© du mom t C fewii 
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CHASSEURS 

de bogues 



i Je pense Que le programme What time is it Mitt 
Movie" fonctionne mol wr un Apple 6307. Caio 
semble pravenir de fo sauvegarde du context** en 
debut d interruption. Ainsi, en ligne 121 to valeur de 
I'occumutateur sou vee sur la pile n 'est pa* la bonne car 
elte a 614 modifiee par la routine SFA40 appeffe far* 
de /interruption. Par conlre t on retrouve la bonne 
valour en $45. II tutlit done dm laire un IDA $d5 avant 
PHA pour que tout rentre dons i'ordro. 
Sans cette modification, an about!! opres quelques 
manipulation* en mode direct ou en Ba*ic a un fatidi* 
que "SYNTAX ERROR". 

Par centre, ovec le 65CQ2 tout fonctionne normale- 
menf, car la gestion de* interruption* est differento 
quant d fa sauvegarde de laccumulateur* 
Un petit conseil 6 Alexandra da I YON. En rembobinant 
to ruban celul-ci est plus fragile, alors comme fa pro- 
lection de rupture n'est plus op4rante. attention 6 la 
tete d'4criture en ca$ de dechirement du ruban I Par 
contre t le nai pot trouv4 d'utilisation veritable du 
fameux rmssori, et so *uppres*ian permet d'utiliser 
entierement le ruban. Au contraire. tarsque le ressort 
est present I'oi constat^ des dolours d*impres*ion en 
fin de bande Le logidel Dazzle Draw me semble int&- 
ressont pour utiiiser la couleur de la Scribe. 

J#an*ta/f A. (TTUQJOUAWtt:. 



Calculs Imprecls 

§ Void deux courts programmes qui normolement 
devraient donner le* memes rtsuttals (sous DOS 3 J./ 

1° 10 INPUTH 

20 H = INT(H* 100)/ 100 
30 PRINT H 

3° 10 INPUTH:H = H* 100 
20 H = INT(H) / 100 
30 PRINT H 

Or, si Ion antra on 10, la valeur 12,2, on obtient 12.19 
6 la fin du premier programme et 12.20 6 la tin du 
second. Pourriex-vaus mlndiquer dou cela provient ? 

j. p. (soeoo Nb*ts}. 




informed laire (H - H * 100) place dans H uno 
voleur ex ode, ce qui rTest pos le cos dans la ver- 
sion 1 du mini -program me. 



catalogue themotique 

% Dabard merci de vos reponses rapides et precises 
6 mes prdcedentes questions. Je vous ecris 
oujourd hvi pour participer au /eu de lo chasse avx 
bogues j en effet. fen at trauve 1 deux, il me semble, 
dons le programme "CATALOGUE THEMATIQUE* du 
TM. n°4. 

1° Le remplissage du tableau CSiO se fait 6 partir 
de I'dl&ment (ligne 40), mai$ laffichage se foil 
6 partir de telement f (ligne 120}, risultot un 
tichier n est pas afflche. 

2° La boucle de ctossement (ligne* 60-90) ne fonc- 
tionne pas ; en ettet, si t = N ce qui arrive ovec 
mes disqvettes, lors de lo premiere execution de 
la tigne 80. K=l — 1 et ('instruction 
C${K+}) = C$(K) ecrase CS(I) par CS(K) et la 
variable 6 dosser est perdue. 

Voici un exirait de lo version corrigee da ce 

programme ! 

40 &CS(l): N = 0:1 =0 
50 /-/+#: IFCS(t) = " " THEN 100 
60 IFMIDSfCKllZt) m CHR$($) THEN SO 
70 N = N + 1: CS = CS-t 

80 FORK = NTOI STEP — I: IF CS > C$(K — 

t) THEN 90 
85 C$(K) = CS(K— t): NEXTK 
90 CS(K) = CS: GOTO SO 



TM 



Vous avei irouvA vous- m Am e la rAponse : la 
deuvleme program m a fk»n *%1 la bonne. Le cakuf 



QUESTION AUX CONNAISSSURS : 

Grdce i TM. je suit devenu un fnconditionnel de 
ProDOS r surtout ovec le volume fktif /RAM, 
mots comment Uberer les pages memoires bio- 
qu6es par le sy*teme r V4quivalent du POKE 
49934 t (mats pour toutes les pages ou, ou 
mains, pour les pages de lo mimoire grvpht- 
que) ? Je rive de joux du style "Mask ol the sun H 
sans les interminable* attentes de lecture 
disque 

— Mm Ow** It MMMItOfltX — ' 
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$ Dons GRAPH AIDE (num4ro 7, poge 28} r II yo une 
erreur.^ sons grand* importance mais qu*il est 
preferable de corriger pour ne pas perdre la main* 
En effet. d la tigno 195. le GOTO 310 nous envoie.-. 
dans la nature. Je suggere done de le rempiacer par un 
GOTO 210. 

Cbud* f. fUOM TCUtS). 



OUT OF ME MOBY mRRO* 

I Je vous 6cr1s pour vous poser un problAme ! 

iorsque Von fait dUiler un lexte de hour en bos et 
de bos en hout dons un programme basic (pour (aire 
un petit traiiement d& texte par exemple), il se produit 
ou bout dun certain nombre de fois (entre V0 et 20) un 
'OUT Of MEMORY ERROR* dam des Ugnes qui n'ont 
aucune ertevr D'otlfeurs. en compliant cm m&me pro* 
gramme tout marthe tr&s bien Avriez-vous un remede 
6 «»• *rr.ur du *,* Applesoft. ft ft ^ 
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Ce n'est pot une "erreur** du Basic Applesoft, 
mais une erreur de prog ram ma lion, Vous devex 
abuser de* GOSUB. Or r quand vous utillsex cette 
Instruction. 'Applesoft sioche son numero de 
tigne sur unc pile (chaque GOSUB utilise 6 octet* 
de memoifa f). Vous ne pouvez pas Imbrfquor 
plus de 25 sous-programmes tet uns dans les 
autre** SI d'aventure le programme rencontre 
GOSUB 24 tais... ovant de trouver le premier 
RETURN, fl vous afiiche un fatidtque "OUT Of 
MEMORY ERROR*'. 

II convlent d'y penser quand on programme en 
Basic, notammenl s'il s'agit de (aire dottier des 
lignes sur un exron (24 lignes,., {. 



CALENDRIER PERP&TUEL 

I A VottenHon de Michel Edelin. auteur du CAIEN* 

DRIER PERP£ WEL paw dans T.M- n Q S. 
te calendrfer semble limhe d lepoque 1901 — 2000. 
1901 cor 1900 n'est pas bissextile ( 2000 par la voionti 
de I'auteur ? On peut 4larglr ton application ou eaten- 
drier Gregorien. 6 partir du 15 octobre )562 jvsqu'd— 
It suffit d'4limtner les annemt centenoires non bissexth 
hn, c'e$t*&~dire non divisible* par 4QQ. 

On pounait alors exrire la ligne 85 comme ceci : 
Y = M-{7+ INT(M/7)) + l; 
8 = ftNTtV/4) = W4) - 0NT(U/4W) < > U 400) : 
m = M('l + B + (B > 0) 

On vfrifie atars que le catendrier de 1 900 pyt correct* 
ie 1 5 octobre 82 ^toltun vendredL 1 9r jonvler 3000 sero 
un merer edi si (e calendrier Gregorien a toujour* 
cours. A vous de juger si /'extension en vout la peine 
(avec un coup d'ceilsur la Ugne 385} 

Men G (dIOOO SAINT tTHNNt). 
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apple uc pes more t 

§ Je tlmns tout d'abord a vous liliclter pour 
voire exceltente revue ou Ion trouve des 
programmes vane's. J'ai 6t6 surpris en lisant en 
page 1 du numeVo 6 que I Apple Ik 4tait une 
machine ferm6e et quelle ovait selon vous peu 
d'avenir ("oeut on ful promettre une tongue 
vie ? J'en doote"). Je tiens 6 vous signaler qu'tl 
existe de nombreuses extensions, dtsponibles 
oux U,S*A. Je vous cite en vtoc r extension 640K. 
ZBO (dhponible en France), hortoge, carte Mac- 
kinboard. processeur 16 bits. Vous reconnaftrez 
que /'on est loin de "la machine (erm4e" bien 
que ce ne soit pas encore la souplesse du lie. Je 
pense que de telles affirmations font regretter 
aux possesseurs de lie d'avoir achete* un Ik pty 
tdt qu'un lie. 

J'qI 4galement quelques trues 6 vous communi- 
quer : 

— Si vous utilisei un Apple tie ovec un moniteur 
couleur. vous serez certainement g4ne por les 
lettres en mode graphique qui sent Wo/ef/es. 
vertes. mais rarement blanches. Un poke — 
1679Q t Q posse I'dcran en mode monochrome* Par 
exemple. pour lire plus facilement les menus 
de^ovtonts de MousePaint. vous faites poke — 
16290.9 suivi de PRL6 pour boater la disquette 
MauiePalnt. 

— SI vous disposez de Basic System M. votis 
over 6 votre disposition une commande PraDOS 
supplemental^ : BYE. En topont BYE t le tystime 
vous demande d'entrer un pr&ixe, puis le nom 
du fichier SYS d ex6cuter. 

Je tiens 4gatemaat & vous faire part d une bogue 
que i'ai constatee dons le programme 
F.CRANS BAS du nvmero 3 f arrive* 6 la demiere 
tigne. si I'on tape un caraetire. t Ac ran remoote 
d'une ligne, de*trvi$ant lo page que Ion avail 
faitc. Peut-drro avez vous trouve ce qui cause ce 
disagreement ? 

fr+dttic B {lltSO LAGUSNNt). 



L'Appf* Ik est une excellente machine, el 
|e le reconnais volontiers. mais elle est 
loin d'efre ousai ouverte que son am4* 
TAppIe tie. 

Oe plus, lo plupan des extensions etigem 
I 'intervention dune personne quatifiee. 
Quant 6 sa duree de vie (toujour* par rop* 
port 6 1'Applo tie. champion dans sa cate- 
goric nous en reporter on*.**) 

Guy -HACMm. 
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• Lexique d'informa- 
tique et He micro- 
fnformatique 

(Eyrolles) 

Un de plus ? D#lrompez-voua : 
Jeanne Mllsont a fall do la bonne 
besogna. II est vrai quelle est ma!- 
tre os Sciences et ingenfeur en 
Inforrnatique : cela lui donne lout 
de meme deft compdtonce*. non ? 
Brol : on peut consulrer son Lex/* 
que au fur el a mesure des neces- 
stt£s. mois il n'est pot inlerdit de le 
lire sequent* elf omont ("soquen* 
tiel" figure, bien fur, ou nombre 
dot term** expliques), 
Jeonne Mllsont q tenu compte de 
la lisle de* nouveoux termea obit- 
galoiremeni en usage dans les 
admfnist rations ( services et eta- 
blissements publics de VEtot. 6 
partir de 1985. Nolans que, dans 
ce lexique le Francois est priori- 
tairo. Je m oxpllque : ce sonl les 
lermes fran^ais qui sont definls. el 
non les mots anglais que Ton 
retrouve, accompognes de leur 
traduction Iran^oise. dons un 
index concrs et pratique* 
(178 pages tout couverture carlonnee, 
err/Iron IJfl F] 
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NOUVEAUX OESSINS 
GEOMETRIQUES 
ET ARTISIIQUES 
AVEC VOTRE 
MICRQ-ORDINATEUR 
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* Nouveoux dessins 
geometriques 
et artlstiqves 
avee votre 
microordmatetsr 

(£yroll*s) 

Jeon Paul Delahoye o voulu don- 
ner une suito 6 un ouvroge recent 
fmome hire, si I on e>ceple le qua- 
litkolil "Nouveoux") et il peut s*«n 
felkiier. On peut evidemmonl ufl- 
User ce second volume sons noces- 
soirement acheter le premier* 
Les programmes (Mff dessins et 
aulonl de routines orgonisees 
outour de 20 blocs prindpoux] sont 
tous ecrils dans un longage Basic 
standard (Microsoft) et sont done 
odopfobles sur la plupart des 
machines, Une annexe donne 
quolquot exemples d'adaptations 
sur Apple M 

Un grand nombre de references 
concernont les arts geometriques. 
Je dessin ossiste par ordinateur. 
etc. figurent egolemenl a la (in du 
livre de JeonPaul Delahoye. EHes 
serant certainement utiles 6 ceux 
qui deslrerant alter plus loin... 

(3)3 pages sous couverture corlonnee, 
■ * ' ■ tW F)- 

luiiflimiimnmHraMH 




• Les fichiers 
en Basic sur 
mfcro-ordinateur 

(Eyrolles) 

Si vous posseder deia des notions de 
Basic et si vous ignores comment 
archlver, metire 6 jour et contulter 
les inestimables informations en 
votre possession, offret-vous I'lnitio- 
lion de Claude Delannoy. 6Jle constv 
lue un Abe terieux sur lo question, 
mois ette ne concerne pas UN MICRO 
en part icul lor Toutefois, ay ant 
c hoi si Apple, vous lui prefer ere i 
sans doufe "te$ Fichi&rt en Bo*k $vr 
Appfe*\ du meme auteur et dans la 
meme collection, avec des program- 
mes construits pos a pas et forge- 
ment comment*!.,, encore que [e 
vous conseilio de feuilleter les deux 
ouvtoges chez voire libra ire hobituel 
avoni de prendre une decision 
D'opres les lettres que revolt ta 
redaction de Trwnpfin Micro* il scm- 
ble que lo gestion des fichiers const!- 
tue, pour bon nombre de nos lec- 
teurs 4 sirvon un obstacle, du moins un 
reel *u|el de preoccupation. 

(156 ou 1H pages soui couvertura cor ion- 
nee. environ IMF), 

Client REWARD. 
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Vous avez ecrit 

a TREMPLIN MICRO 




COMMUNICATIONS 



• Dons te — Dos de derni&re page — , j'oi 
frouve interessant votre article COMMUNICATIONS 
sur VERSION-TEL, Vous y dannez des precisions fort 
utiles aux ^ventuels futurs acquereurs. Cependant, 
fP me permets do vous Intro part de la maniere dont 
j'oi r&solu mes besoins pour imuler man APPLE lie 
en Minitel intelligent : 

La Soclete MARVtE — de PARIS — commercialise un 
Programme + un baitier dlnterfoce propre d cette 
emulation. If s*ogtt do M232, 

II lout avoir un Minitel — Grotuit de plus en plus 
souvent com me vous le savez — . L*interface M232 
utilise done Iq MODEM PIT. ce qui fait r&aliser une 
economie qu'il est inutile de vous prtciser I ies 
fonctionnali14s de cet ensemble — qui s'exdeutent 
sans brancher — sent Ies suivantes : 

• Cr4ation de TEXTES param4tr&$ en lonctions et 
temps pour acceder autometlquement d un SEP- 
VEUR quelcanque* A part la composition du N° 
de tel. du serveur. Ies proc&dures se lont sans 
intervention, y compris le stockoge des pages sur 

. la disquette. 

e VISUALISATION et correction de cet textes. 

• ACCiS MANUEL au SERVEUR VIA VAPPLE qui attl* 
che TOUTE PAGE videotex en MODE GRAPHIQUt 
compIeK 

• Modification du temps d'ailichage* 

• Passage en mode TEXTE 6 Itcran (en AO ou 90 
colonnes) 

• SIMULATION des couleurs.„ 

• ENVOI de toule page videotex direclement sur 
TOUTE imprimante — ceci en mode TEXTE — o//n 
d'augmenter la compatibility (Cet envoi peat se 
hire PENDANT f'occAs au serveur — ce qui est 
peu int4ressant — ou pendant une CONSUtTA* 
TtON de pages). 

• Coosu/fofion des PAGES STOCKEES et lour envoi 
sur ie Minitel — ou sur I'imprimante en mode 
texte 40 / BO co'onnes, 

Void Ies principoles fonctlons de ce programme. Je 
vous passe Ies petits details pr&sents dans le mode 
demphl fort blen rialisi. J'utilise ce mat4riel r^gu- 
Wremenf depuis plus de deux mois maintenant. 



avec la plus grande satisfaction.*, dont celle d'avoir 
pay4\ ensemb\e7SOF t 

Pour terminer, je tlens 6 pridser que /e n'oi AUCUN 
LIEN avec la $od&4 MARVIE. et que ma lettre n'a 
qu'un but d'lnformation. En effet t e'est apr&s une 
asset tongue recherche et plusieurs comparisons 
de produits que /e me suis orienfe vers ce type de 
logiciel de communication. 

JvenFler/* G (3$ 120 1 T EG* FVf : 

longue, mols tres intd- 
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Rien 6 ajoulor 6 cette 
ressante leMre. 



COMPATIBILITE 
//+ el lie 



J 



• Je souhaiterais fatre b&n&tider un ami d une 
application personnelle (en court de realisation) sur 
un APPLE lie, en Basic sous DOS 3.3. Malheureuse* 
ment t il poss&de un 11+ : aussi t qvelles sont ses 
chances de pouvoir (aire tourner telle quelle mon 
application sur son 11+ ? 

Lo cos ich4ont t existe*til des Equivalences pour 
certalnes instructions BASIC permettant ce trans- 
feri ? Quels sont Ies problimes de DOS qu'il risque 
de rencontrer ? Existe-t-ll un artifice logiciel 9 
Est-ce que la carte langage 16 K 11+ pourra etre 
utile ? Dernier point : pour corser le tout, mon 
application utilise 00 colonnes d*ou prablime de 
compatible ovec celle du 11+ ? 

Les difficult^ proviendront surlout de lo cone 
80 colonnes et auronf done trait 6 I'aHkhage. 
Lo carte longage pourra etre utilisee dans to 
majorifd des cos et dans let mfrmes conditions 
que sur I'Apple He, mais des essais se revile- 
ront indispen sables. 

Un consell ■ demandez 6 votre ami de vous 
confier son unite- centrole pendant plusieurs 
jours. Prenez aussl lo temps de lire lo docu- 
mentation concernant so carte langoge el. 
surtout, sa carte SO colonnes, 

(Suit* pag* SB) 
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Vous avez ecrit 

a TREMPLIN MICRO 




IMPR I MANTI 



SCR I 8 = 



ET LA SCRIBE ? | 



• Je viens de lire dans TM* n°6 les rmmarques disa- 
buses de Michel C (HAGUENEAU) qui a ochmti une 
imprimonte SCRIBE et qui semble voulotr la vendre 
pome quil ne sail pas s'en servlr I 
Cecf m amine d loin plusieurs remarques ; 

n J'ai aussi une SCRIBE ochetfe a NANTES en avril 85 
(2750 f} avec une doc. en tronfais relotivement 
bien loite. Apr&s ovolr Idfon/ie queJque fempa, je 
me d^brouille maintenant pour I'essentiel J 

— grophiques por lintecmtdiaire <J* '° disqueffe 
"recopfe groph/qi/e" tte IIMAGEWRIIER dont le 
revendeur m o donnt* une copie. 

— caracteres spectaux obfenus par programme en 
bosk (ci'lolnt un petit progromme*d4mo que /# me 
suis {nit et que vous pourriez peut-Stre laire sun/re 
6 Michel C pour le dissuoder de vendre so 
machine}* 

Votre reponse a Michel C semb/e dire "vous auriez 
m mieux hit d*acheter une IMAGEWRIJER 11" ; c'est 

pour font vous*meme qui dites, page 60 do m£me 
numiro. en rdponse d Pierre G. "tous les posses- 
seurs d'APPLE n'ont pas hrcement les moyens de 

fottrlr une IMAGEWRITER" I 

I Je d4plore un peu que la SCRIBE. ma14riel APPIE, 
nait pas (soul erreur) eu droll 6 une seale ligne 
dons r .V. depuis sa sortie (pas plus d'ailleurs que 
dans I'autre revue thmestrielle consocree a la 
Pomme). Son rapport quaUti/prix m'a sembli inl4* 
ressaat et so Ifmgole de rubons n*est pas une lore 
pour une utilisation hobby que . Pourquoi. par 
exemple, dons la presentation des deux articles 
des poges 17 et 17 de T.M. n°6 ne pas mentionner 
la SCRIBE au meme titre que tIMAGEWRITER et la 
DMP (si le programme foncthnne ovec t bien sur) ? 

I ^utilisation de la cauleur en impression graphique 
u n est pas obordee par la doc. de lo SCRIBE : ahrs. 
pourquoi pas un programme dans TAl, suriout s'il 
est vtllisable 4galement par IIMAGEWRITER II ? 

n J'ai r&cemment appris par moo revendeur que lo 
m fabrication de 'a SCRIBE etait arretee : serait-ce la 
ratson du silence pesant qui r*gne dans les deux 
revues trimestriolhs sp4cialis4es ? les posses* 
seurs de SCRIBE seront sons doute mains nombreux 
que les heureux passesseurs dlMAGEWRUER. 
mart ce n'eif pas une raison pour les ignores 

nOfl ? firngMM (44990 M -WT-KftWAWJ 



188 PRINT "METTRE L'IMPRlMrWTE SOUS TE 
NS10N* 

195 PRINT 'EN MODE BROUILLON. " 

119 PRINT "PUIS TAPER UNE TOUCHED 

115 WAIT - 16384,128 

128 PRINT CHR* <4)"PR£1' 

125 PRINT CHM (27)*q" ♦ CHR* (14) 

138 PRINT CHR* (27)"L814- ♦ CHR* <27>" 

135 PRINT "APERCU DES POSSIBILITES DE 

LA SCRIBE." 
148 PRINT CHRS <27>'c' 
145 PRINT CHR* <1B) ♦ CHR» <I8) 

139 PRINT 'CaracUre* NOWWUX 8R0UILL0 
N, ttls qu'ilf sorttnt stns connan 
de part i cul i •re" 

155 PRINT CHR* <27)"m" 

166 PRINT "Caract*res NORMAUX LETTRE , 
tels qu'il^ vortent avec la corona 

ndt manutlle LETTER" 
I4S PRINT "ou en prograrmant CHR* (27) 

el m entre gufllernets" 
178 PRINT CHR* (27)"X" 
175 PRINT "CaracUres NORMAUX LETTRE « 

ouUgn«s avec CHR* <27) et X entre 
gu i 1 1 tmets < B 
188 PRINT CHR* <27)'V 
185 PRINT - Fin du soulignement avec CH 

R* (27) et Y entre guHleneU.* 
198 PRINT CHR* (14) 
195 PRINT "EN-TETE avec CHR* <14>." 
208 PRINT CHR* (13) 

285 PRINT "Fin EN-TETE avec CHR* <15> t 
■ 

21 a PRINT CHM (1B> 

213 PRINT "Inttrlignt *vtc CHR* (IB)." 
22B PRINT CHR» (18) 
223 PRINT -VolU I ' (nttr I Ignt . ' 
238 PRINT "VoiU sans interlign».* 
233 PRINT CHRS <27>"n - 
248 PRINT 'Pitlts caract&res GRAS au»c 
CHR» <27) #t q entr* gulllmtti.- 
243 PRINT CHR* <14> 

258 PRINT "CARACTERES ay»c Ua d»ux co 
rmand*s CHR* (27) it q « CHR* (14) 

■ 

255 PRINT CHR* (18) 

268 PRINT -Ne pas depasser 48 caracttr 

• s/Hgn* dans ce modt." 
265 PRINT CHR* (18) 

278 PRINT "NOTE! n* pat oublitr qut I' 
Inprimantt continue autc )e mode d 
•mand» ' 



58 
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275 



268 



285 
298 
295 
380 

385 

318 

315 



PRINT "tint qu' 
• Inte ou que Ic 
s eW 

PRINT "cormand* 1 
t c entre guill 

tout a" 
PRINT 
PRINT 

PRINT 
PRINT 



elle n'a p»s (H #t 
nod* normal n'a pa 

, soil: CHR* (27) e 
enets, ce qui remet 



"i*ro." 
CHR* <18) 

CHR* <27> 
•Pour obt 
caracttrts, fa 
PRINT "Lnnn ent 
arge est Ic i de 
PRINT ■» done * 
889 tntre gui 1) 
PRINT CHR* <4)" 



"L889" 

•nir un* niarge de n 

r» CHR* <27> »f 
re gui 1 1 erne ts. La m 

9 e&racteres, on" 
ait: CHR* (27) tt L 
enets." 

PR£8' ■ 



Merci pour voire otmablo collaboration. Vous 
ovez lei la preuve que les colonnes de TM. 
sonl aussi ouverles aux utilisotours de la 
SCRIBE qui, otlecllvement, n'esl plus commer- 
cialise*. 

A noler que. d'apres un autre correspondent 
(J.-MarcCoANZIN): 

© ta doc. francoite de la SCRIBE est disponi- 
ble. depuls le printemps 85, the-.- les con- 
cessionnaires Apple (en echangc de la 
doc. d'origtne). 

(J) Sur Appleworki, I'occonl clrconttexe doil 
lout betement aire tape dans le texts, 
ovont la lettro a accentuer. 
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* J'aimervis trouver. dons un petit pro- 

gramme permettont, de hfon rapid* (a partir d un 
programme Basic ou dun tichier de mlse en page), 
to pose et VutiUsation des tabulations horiiontales 
et verticals sur IMAGEWRI7ER. 

M G. 1*4130 ttAiN) 

Dure... dure, la pose des tabulations sur IMA 
GEWRUER Nos lecteurs y perdent le sommell 
Sur DMP. la recette donnoe par la doc. four- 
nlssait de bons resultats.. mais l*IW rtagil 
itrangement ovoc let m*mes instructions-,, 
quand elle ne se contente pos de les ignorer, 
Cest surement tres simple, trop pour les 
esprits compliques qui se cherchent dons nos 
boites craniennes I 



CAO EN 3D 



* Passionni de dessin en trois dimensions, mars 
gu&re doui pour les math&matiques. et un peu 
perdu dans les programmes, trop $ophistiqu&s des 



Hvres consocris cette question, je suit Impatient 
de voir paraiiro, dans tM. r un programme ao CAO 

3D t simple, structure. peHormmt, facile 6 adapter 

d mes propres dessins et motiriets (Apple lfe t sou* 

Rlen 6 voir ovec 5 fi (qu'est*ce que vous 
croyez ? je pensaii b Berlrand Bller). Ce 
fomeux logicief exlite. ma*i vous coutero plus 
cher qu'un abonnement 6 f.A4, Ndanmolni, 
fol de Nestor, je vous promels de donner lo 
priorite, au cours des mois 6 venir 6 un pro- 
gramme inddir ri5pondant a vos d^sirs. 



ET SEIKOSHA ? | 



• Mpotose. pour Monsieur S + fde Pierrevert) qui a 
dos problimes d epression en 80 colonnes ovec 
une Seifcosho GPIOQA. Jbi un Apple lie tiquipd 

dune carte 80 colonnes "Chat Mouve**, Au debut 
javais une Seikosha GP100A. bronchte par linter- 
mtdiaire dune interface lABSHCplocee dons le Slot 

(i lo maigre documentation livrie ovec cette carle 

hdiquoit que les listings en 80 colonnes etaient pos- 
sibles. Apras de longues recherchet, j'ai pu trouver 
un "truc*\ pas formidable e'est vrai t mois efficoce 
quand mime. Je vous le livre. ainst qu*6 Vlntention 

de M. Jeon 5. ta solution constate ellectivement a 
taper, dans l*ordre t les instructions ci-dessous que 
M. S. reconnoltra : 

P(?£I CJRL-I BON; LIST :PR£3 

Mois... car il yaun MAIS... ces ordres doivent Stre 
inclus dons le programme 6 lister.,. II taut done les 
toper sous la forme suivante et v&rilier que la pre- 
miere ligne du programme parte un numero com- 
mengant o 6 minimum ; 

1 PR£) 4 PH3 

2 CTRL ! BON 5 STOP 

3 i'ST JO Programme d lister 

Une fois cela top4 t il sufiit de hire RUN. Evidem- 
ment t line lout pos oublier d'enlever ces 5 lignes. le 
listing termini, si on veu' souvegarder le pro- 
gramme. Je souhoite vivement que M. 5. puisse 
obtenir ses listings en 80 colonnes comme I'avots 
reussl d en obtenir de cette manidre. tr&s contrai- 
gnante, il tout le reconnoitre, mais je n'ai jamais pu 
trouver d'outre solution. 

Je dis bien "j'avak" cor maintenont, je dispose 

d'une "IMAGEWRITER" interfocee pot une 'Super* 
Serial Card" et ma bonne Seikosha est retournee d 
son branchement dorigine r sur un "Dragon 32" dont 

le Basic Microsoft et son instruction UlSTsont Infini- 

ment plus efficoces t 

9.L(nmttMANS} 
pour M S pour d'aufres 



TM 



CQ.F.D. AAercl 

lecteurs, places devanl les mSmes problfemes. 
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Vous avez ecrit 
aTREMPLIN MICRO 




TOUJOURS IMAGEWRITER... 



• Comme suite a natre entretien par telephone le 17 
couranl, et un entretien sur le m&me sujet avec 
quelqu'un do club APPtE. Je suis en mesure de 
dire ; 

— Que man interlocuteor du club APPLE ne connalt 
pas lo fonction Gnnnn sur Imogewriier {mais que 
son ocajeil tut trin sympa), 

— Que le programme sur le svjet pari* dons la fiche 
n°S, pr4sente une anomalie hrsqv'H tourne avec lie 
et IWh 

Valid le tuyau pour obtenir l*$ belles bordures qui 
ont ami les accessits et les billets d'hanneur des 
copalns de mon entance* 

120 PRINT CHRSWPW r PRINT : PRINT 
CHR$l2?rn" ; ; PRINT CHR${9}"90N" i PRINT 
CHRSm'Z" 

Ceta sembte du 6 une particularity de la arte super 
serie (accessible uniquement par les UtHitalres). tes 
regtage* DIP du lie envvient un retovr chariot et un 
Saut de Ugne apris 80 caroctkres. 



le probleme est que ce n est pas dons ie manuei de 
I1W1 que se trouve la solution, ni dons celui des uti- 
litaires r mats dans les 2 volumes (en Anglais, mais 
ovi !) — APPtE tic Reference Manual — nan rem- 
bourses par lo Stkunte Soclale, cor produits de 
luxe. Sans vauloir etre trap grassier. APPLE nous 
prend pour des.*> pigeons. II est temps de trouver 
ces manuels en Franfais et de river que ces ouvro- 
ges seront ofterts aux ocheteurs de lo susdite 
becono De plus, on se rend compte qu Apple ne 
s'odresse plus aux bidouilleurs. qui ont lait so 
renomm&e. mais se dirnocratise : alars, il est sou- 
haitable que les manuels soient plus explicites. 
voire ossortisd'exemples* Pour mo port, e'estgrdee 
a votre revue que j*opprends les possibilites du He 
(et ses impossibility J. Je me rends compte que fm 
fais Id un rfrjuteiroire cantre APPtE, aiors que je 
vous ecris d vous qui palliez les carences. Conth 
nuez, mais je me plots d imaginer ce que seroit 
votre revue si les II 4taient rdellement compatibles 
et si les manuels etaient complets. Que ne nous 
concocteriez-vous pos sur les pages oinsi rendues 
fibres ? rhm PP + c. (?tsm tr chatuzt sh **tt) 

j^Ti Umogtwrifer est une oxcellente impfimonto. 
!5 moil il foudrait qu'elle soit occompognde d un 
recueii de courier routines eiplteallve*. II est 
sflr que, sur llc t bon nombre duliitsateurs ren* 
confront des problems*., dus o une documenla* 
Hon trop succincte (du roolns en tronfais). Le Ik 
or I' IW meritent un meiHeur Iraitement. 



MESAVENTURE (lettre d'un lecteur mecontent) | 



* Jai *ouhoit4 vout Retire pour vous signaler une 
m4saven*urm qui pout *ervJr d d'*>ventuel* ocqudreur* 
du togtciol INSTANT PASCAL dtvotapp* por THINK 
TCHNOlOGtE. to brochuro 'on irtfrooW'ion to pro* 
atamming" est dot 6m d'umt admirable protoco do 
John ScvTloy President dAppie Tre* tntims* par le 
lortgoge Patent, tai des Jrtf ocqu4rir un loglclet tutcmp* 
title de torvir mos iwsoJns de de'vetoppemant. 
Je *ui* all*} chez moo vendeur habituct qui o p^non 
Sur rue & Paris pour dama/rder le clotflQu* PASCAL 
USBD witon 1.2* 

It ne possMolt pas emtio version, rtf to nouvetle vor 
fJo/v 13 donf i i.;nr-j.\ Vexisiertce. Le vortdour mo 
propa*4 INSTANT PASCAL. 

Apr os avoir consul t4 la brochure pr4c*tioe (en 

aright*). j*ai docidt do I'acqutrlr* 

Lo iogitlol m'a couto 1000 F. . . 

€t pour cette tamme voitd co quo jd opprrt ! 

SUJW»WSf t La dUqoetio MASTER oil pfot4$4o. 
Pas do souvogarde possible. On vous donrto on dov* 
bio. &i cos do problome. on you* invito d renvoyor lo 
dfoquotto d+toctueu** ouc USA. /Les autre* venian* 
Pascal Oes yrales) avtarisent la COpio do tauvogordo), 

2* SURPRISE : la d^*quotte de d4mon*1ration est 
doteo dun formidable BUG qui vous emperhe de 



pour&uivre au dold do la /efon 5, Heurousomont ilya 
une Yonion "clavier (KEYBOARD dam le foxfe)", 

J* SURPRISE i Le Itviet tourni dan* le kit vous pro* 
pa*e t v vous pastet oum cho*o* soWletnos* d'ocqu&rlt 
"INSTANT PASCAL REFERENCE MANUAt Iff ie disert t 
itre dispaniblo chet votre Ubrairo habitue! Htoyei. 
m&ma chor A. Seedrin, on no connatt pos t 

4* SURPRISE : Pons la tn&mo brochure dintroduc- 
tian d to progrommai ion on +ou* stgnato quo INSTANT 
PASCAL o o*t pot compile*, mat* interpr4t4 cammo 
n'lmporic quel BASIC. Tradui*ez J ie po**edo lo PAS- 
CAL le plus lent do la plonoto. 

S w SURPRISE : Voo* no pouvei pos dovotoppor do 
programmo indopoodont. Do touto rof on chet A. Soo- 
drln an m'a ropondu quo lo programmo dovoloppo 
par VutlUsateur no pout d£pa**er 20 a 

CarKlu**on . question >urprUM {on 0( pour mon orgont * 

En vous romorciont de votro attention et esperant que 
vout ourez atsei do ptaco pour inserer rnon artitla 
dans le numtra do Mai 

Je vous ptto de croire en 1'oMpression do mo* *onti~ 
merits le* moiiieuf** 

M LAMBiWT (9*00 CRETItl). 
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CODES ASCII, HEX A et BINAIRES 

QUE Ton programme ou non on langoge machine, il est souvent necessaire de connaltre la 
representation binaire ou hexadicimale d'un coracl&re. la partie gauche de nos 
tableaux concerne les 128 codes ASCII standard (bit 7 6 0}* la partie droits concerne les 
codes supdrieurs de ces m*mes caractdres (bit 7 6 1). 



cm 



CODES A5CI 


I IMTtUEUBS 




CODER ASCII SUPtBlEUHS 


nrc. 


H EX. 








©fee. 


H F X 










m w n 












into 
















o 


5JJ 

^w V 


? cr o <7 o o 







128 




* ( 


r 9 


i 


W L 


9 9 9 


1 


A 


1 3*? 


E i^i 1 

9" * 


1 ( 


r 9 o o i 


2 


SO? 





1 


■ g 


t no 


Say 


190 1 


r o o i 9 


3 


£03 





1 1 


■ ^ 


131 


■ii 1 

WW 


* 9 ( 


F 9 1 l 


4 


$04 


1 


00 




132 


sa« 


1 ( 


10 10 


to 


W J 


\ 


1 


. t 

* ■ K 


i in 

■ WW 




r 9 o ( 


1 9 1 1 


6 


%06 


1 


1 


V ¥ 


134 


'" r, 


1 9 ( 


r 9 1 1 9 


7 


SO 7 


1 


1 1 


C ft 


135 


587 


1 90 ( 


r 9 1 » 1 


8 


SO A 


10 





u 


136 


SOfi 


1 9 ( 


110 9 


9 


SO 9 


3 '0 


1 


1 


137 

■ w* * 


$39 


1 9 ( 


r i M t 


10 


SOA 


10 


1 


, J 


i3d 


5QA 


t 00 ( 


f t 1 


1 1 
* • 




1 


1 1 




f V r 


uii 


1 90 ( 


110 11 


1 2 


sac 


11 





. 1 


140 


IQC 


1 99 ( 


n ioo 


12 


SOD 


1 1 


1 


u 


141 


« V# M 


1 9 ( 


r 1 i o i 


1 4 


S0E 


1 1 


1 


u 
11 


142 


^ - F 


1 9 ( 


t 1 1 1 


1 5 


$Of 


1 1 


1 1 


ft 


143 




1 90 < 


r i i I i 


16 




00 1 





p 


144 




19 1 


9 


1 7 




1 


1 




145 


$91 


I 9 1 


9 1 


1 G 


SI? 


1 


1 


■ 


146 


59? 


190 1 


9 0IO 


1 9 


$13 


1 


1 1 


. s 


147 


$93 


10 0! 


9 11 


30 
• 




00 1 1 





t>- T 


1 48 


ft 94 


19 1 


9 10 9 


3 1 


SI 5 


10 1 


I 




149 




19 1 


9 10 1 


* ■ 


SI r 


90 1 9 1 


I 


■ v 


1 *iO 


S9n 


19 1 


9 119 


23 


Si ? 


1 1 


1 1 




151 


$97 


I 99 1 


111 


24 


\ 1 rt 

* ■ V 


1 1 







1 ^3 


t9fl 


19 1 


100 9 


* m 




9 1 19 


1 

• 


- V 
► ■ 






19 9! 


10 1 


M 




1 1 9 


1 


*■ 




to a 


19 0! 


10 10 


37 




90 1 10 


1 1 


A o 

* c 




» *1* 


19 1 


toil 


H 


SIC 


9 111 





* 


156 


S9C 


10 1 


110 


^ A 


SID 


9 111 


1 


L 


1 57 


« Af t 
S9U 


19 1 


t 1 1 


30 


SIC 


990111 


1 


■ 2 


158 


59E 


199 1 


t 1 1 


31 


51 F 


9 111 


1 1 




159 


S9F 


190 1 


1111 


3? 


520 


9 10 9 


00 


■# 


160 


SAO 


!!!.! 


r o o o 


33 


S21 


10 9 


1 




161 


$A1 




r 1 


34 


$?3 


9 10 9 


1 




16? 


SA3 


1 9 1 ( 


r o o i o 


35 


523 


991090 


1 1 


1 


163 


$A3 


1 9 1 ( 


r 1 I 


36 


$24 


991091 





* 


164 


SA4 


1 9 1 < 


r o i o 


37 


$25 


9 10 9 1 


1 


% 


165 


SA5 


l 9 l ( 


r o i o \ 


30 


$26 


9 10 9 1 


1 


A 


166 


5A6 


1 9 1 ( 


f 1 1 


39 


527 


901001 


1 1 


■ 


167 


SAT 


1 9 1 ( 


r i I 1 


40 


$2B 


9 10 19 





( 


168 


SAB 


1 9 1 t 


MOJO 


41 


529 


991010 


01 


! 


169 


SA9 


r 9 i ( 


r t 1 


42 


S2A 


991010 


1 




170 


$AA 


i 9 1 ( 


r t i o 


43 


$2B 


991019 


1 1 


+ 


171 


SAB 


19 11 


M 1 1 


44 


S2C 


09101 1 


00 




172 


$AC 


1 9 1 ( 


r I 1 o 


45 


520 


9 10 1 1 


1 




173 


SAO 


1 9 1 ( 


fill! 


46 


S2E 


991011 


1 


• 


174 


SAE 


1 1 ( 


F 1 1 | t 


47 


!!S 


9 10 1 1 


1 1 


/ 


175 


$AF 


1 9 1 ( 


r i i i j 


46 




9 1 1 9 








176 


MO 


19 11 





49 


S3! 


99 1190 


1 


1 


177 


581 


19 11 


00 1 


30 


S3? 


M 9 


1 




178 


SB? 


19 11 


9 10 


SI 


$33 


9 1 1 9 


1 1 


5 


179 


$K3 


t 9 1 S 


11 


33 


$34 


991191 





4 


ieo 


5B^ 


19 11 


10 


S3 


535 


9 119 1 


1 


s 


181 


5B5 


I9l» 


10 1 


54 


536 


9 119 1 


1 


1 


182 


586 


19 11 


9 110 


ss 


537 


991191 


1 1 


7 


183 


5D7 


10 11 


111 


56 


538 


90 11 19 


00 


■ 


184 


586 


19 11 


r o 
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CODI 


m iim 


[ INTEBIEUaS 




CODES ASCII SDPERIEUM 


DLC. 


HEX. 


m 3 


WAIRE 




DtC. 


HEX, 




NAI] 


ElE 






J 4 


III It 1 








i * 


14 1} 


1 


37 


$39 


1 


1 1 9 1 


9 


183 


S B9 


1 9 1 


1 1 9 


1 


SS 


$3A 


1 


110(0 




186 


$BA 


1 9 l 


1 1 9 




59 


$3* 


£F 1 


(10 11 


• 


1 87 


$ Htt 


1 9 1 


1 T 9 


1 1 


60 


$3C 


J 


11(00 

^ w 


< 


1 BH 


SBC 


1 1 


1 1 1 





6 1 


Sao 


9 9 \ 


1 1 I 9 1 




109 


$BO 


1 9 1 


1 1 1 


9 1 


62 


|9I 


1 


i 1 1 t 9 


> 


■ 


S BE 


1 ! 


1 1 1 




63 


$ar 


I 


1 1 1 I 1 


t 


191 


$ RF 


1 9 1 


1 1 1 


1 1 


64 


$40 


1 ( 


r o 9 9 


6 


192 


sco 


1 1 1 


> 9 





65 


$4 1 


1 < 


1 9 \ 


A 


193 


SCI 


1 1 ( 


f 


1 


66 


$42 


1 ( 


f 1 9 


9 


194 


$C3 


1 1 ( 

T 


'000 


1 


67 


$43 


9 \ I 


1 1 1 


C 


195 


SC3 


I i i 


P 9 


I 1 


68 


$44 


9 l ( 


1 1 


O 


196 


SC4 


i i i 


f ff T 





69 


$45 


• 1 < 


'00101 


c 


197 


$C5 


l i ( 


f 1 


9 1 


70 


$46 


9 1 ( 

T 


r i 19 


F 


198 


$C6 


i i ( 


10 1 




71 


$47 


^ 1 ( 


t 9 1 11 


C 


199 


$C7 


i i i 


r l 


1 1 


73 


S4B 


9 1 I 


'01900 


H 


200 


sea 


i i { 


r 1 9 





73 


$49 


9 1 < 


r 1 9 l 


1 


201 


SC9 


i i ( 


'919 


1 


74 


S4A 


1 < 


'01019 


J 


202 


$CA 


i i ( 


'919 


1 


73 


$4B 


9 l < 


r 1 1 1 


K 


203 


SCB 


i i i 


r 9 1 9 


1 1 


76 


S4C 


1 ( 


t 1 1 9 


t 


204 


sec 


i i ( 


f 1 1 





77 


»4D 


1 ( 


P 9 1 1 9 1 


M 


205 


sin 


i I ( 


P 1 1 


\ 


78 


141 


9 1 ( 


f 1 1 1 


N 


206 


set 


i i i 


f 1 1 




79 


$4F 


1 ( 


r 9 i 1 I 1 


O 


207 


set 


1 1 ( 


'0)1 


1 1 


ao 


$50 


9 1 ( 


r i 9 9 9 


P 


2QS 


$D0 


i i i 


r i 9 





81 


151 


1 ( 


PI 9 9 1 


Q 


209 


sot 


i \ t 


'10 9 


1 


82 


$32 


9 1 ( 


f 1 10 


It 


210 


ID? 


1 * ( 


r 1 9 


I 9 


83 


$53 


7 1 ( 


r 1 11 


5 


21 1 


$03 


i i i 


p t 9 


1 I 


84 


$54 


a i ( 


t 1 10 


T 


212 


SO* 


l > ( 


t 1 f 


O 9 


83 


$55 


9 1 ( 


PI 10 1 


U 


213 


$05 


i 1 i 


t i r 


i 




136 


9 1 ( 


r I I t 


V 


214 


S06 


i i i 


r i i 




87 


$57 


9 1 ( 


P 1 1 II 


w 


21 5 


SO 7 


i i i 


' 1 T 




88 


$58 


9 1 ( 


t 1 19 


x 


216 


$06 


i 1 1 


P 1 1 9 





ft 9 


$59 


9 1 ( 


pi 19 1 


V 


217 


SD9 


i i i 


r i i 9 


1 


90 


$5A 


tf 1 ( 


M 10 10 


z 


218 


$DA 


i i i 


P * 1 9 


1 9 


91 


$5B 


9 1 ( 


PI 10 11 


ft 


219 


SOB 


1 i c 


r 1 l 


1 t 


92 


$5C 


1 < 


r i 1190 


f 


220 


SDC 


i 1 1 
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GUV HACHtTTE — TUCMPUN MICHO 




EN PROMOTION 

AMPERELO d'Yvan KOENIG 



Bulletin de commande et d'abonnement 



oiM-H o rneMfi *n micro 



Su«*H 



BftlOO CH ATE L L F-RAUl T 



Norn 

Adresse complete 
Code postal I I I 



Prenom 



■ 



- 



Villa 



OUANTITE 


DESIGNATION 


?m UNITAIHE 


TOTAl 




AboMii'.'inyMi a numefos (un an/ rKANwt 


i on f 






Abonnomoni 6 6 dlsquotles (un an) : FRANCE 


GOO F 






MINIS . LOGIOEL DE CLAUDE AUBRY 


IttO F 






AMPERELO d'Yvan KOENIG 


170 F 






REUURt ECRIN 


40 F 






D15QUETTE INDEX (N°l d 6) 


30 F 






DI5QUETTE DE TREMPLIN MICRO i* (Um mi tUl 

N°1 P N°4 CI N«7n 

N°2t i N*SQ N*en 

N"30 N°6a 


105 F 






NUMERO DE TREMPLIN MICRO : * 

N*l U N°2Q N°3Q N°4CI N*5D N"6n 


30 F 






NUMERO DE TREMPLIN MICRO i * 

N°7 D N°8 n 


33 F 





Numoro dabonno ou do dlonf : 



Participation dux fral* d'onvol I gratuit pour 1»» obonn»») 
Envoi on paquoi poitc rocammandc 6 pnrtlr de 400 T 

Total a payor 



+ TOF 



Mom dm UhmUmr voir* r* 9 1omonl a l ordr* d» TREMPLIN MICRO / Edition. JI&6NA 
Mod* d« r^oUvnvnt cholil i 171 Choquo Q Mondal lettre D Carlo Blouo 




N a dm volf» Corf* I 

Dato d'oaplratlon 

Montont 6 d*bH*r 



TIEMPUN MICRO 



63 



tremplin 



SONDAGE du numero 8 

Les rmeigncroeflls ccncemant vtjtrt idwlitd 1 1 voir* odf «w rve wont en 
oucun coi i:on*u«iqu« a unt *ooAt^ itrongtre ou* EDHKWS J i 3 tn a 

TREMPUN WICRO - Lfl P*tiU Motto - StnilU - §6100 CHATEUERAUIT 



QUI ETES-VOUS ? 



* f r., u.-.l 'if 



Nom* rt*+->- Prinom 

Ann6e de nalwince Sew Provision 

Adresse' 
Code postal 



■ 



J Villo 



.... - - - - 

i i l ■ ■ - 



VOTRE MATERIEL 



□ Apple II □ Apple II + □ Apple He □ Apple lie avec □ 6502 □ 65C02 
Autres : 



.... 



■ 



VOS OUTILS 



Otez les quatre logiciels que vous ulilisez le plus souvenl par ordre de preference. 



1. 
2. 



3. 
A. 



ANCIENNETE 



Dopuis combion de temps poss£dez-vous un ordinateur personnel ? 



Concevez-vous des programmes ? 


OUI 






NON 















Langago 



BASIC 






PASCAL 






LOCO 





AUTRi 



Precisez : 



Programme* -vous on LANGAGE MACHINE ? 



OUI 



NON 



Utilisez-vou5 un assembleur ? OUI 



N O N si OUI lequol ? 



INTENTIONS D'ACHAT 



Que sou ha it ez- vous otqodrir. an cours des 6 prochains moiv en moti6re d'tnfofmatique personnelle * 



MMtl Mltl.nnttl.Mt.MI. 



RUBRIQUES PREFEREES 



Indiquoz-moi le numero de la premiere pogo dos rubriques que vous ovez pr616r£os ; 




GUY-H ACHE TTC 





Chaque mois, 
le meilleur 
de la 

technique 
et de la 
pratique 
photo ! 




SLHs 



§5 





1 



Chez votri 
marchand de journaux ! 



